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© Expert system. 



© An expert system which provides one or more suggested treatments for a rjatient with physical trauma is 
disclosed. The system includes a computing device having a memory, a plurality of data bases in the memory, 
an application program and an inference engine program. The data bases include graphical illustrations of 
different types of physical trauma, and a knowledge base which contains treatment information. The application 
program is executed in the computing device and interactively displays a series of screens including at least 
some of the graphical illustrations, to elicit responses from the user concerning the specific type of physical 
trauma and specific characteristics of the patient. The inference engine program, which is also executed in the 
computing device, uses the knowledge base and information related to the responses elicited from the user, for 
selecting one or more suggested treatments. The application program presents the suggested treatments to the 
user after execution of the inference engine program. 
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EXPERT SYSTEM 



FIELD OF THE INVENTION 



5 The present Invention relates to the field of expert systems, and is directed to an expert system 
intended for use in treating various types of trauma, and in particular, orthopedic trauma. 

BACKGROUND OF THE INVENTION 

10 

Artificial Intelligence (Al) is a branch of science resulting from the marriage of 1he cognitive and 
computer sciences. Computers, originally used for the manipulation of numbers (data) are now being used 
for the manipulation of ideas (knowledge). Trends and solutions can be inferred by the assimilation of 

75 observed facts just as numbers are added and subtracted to produce totals. Computer systems are being 
developed that exhibit thought processes previously ascribed only to humans. 

The study of Al leads to insight regarding the human thought processes in addition to the development 
of practical systems to solve problems in the workplace, the school and the home. The "expert system " is 
one method of obtaining such practical results with AL 

20 An expert system solves a problem through the manipulation of knowledge. The system consists of an 
inference engine and a knowledge base. The knowledge base is compiled from the experience of human 
experts in the field and encoded in a computer language suited for the description of ideas and principles. 
The inference engine controls the flow of the program, tracing solutions. 

The inference engine has, in recent years, become a widely available product through a number of 

25 companies, including Gold Hill Computers Inc., of Cambridge, Massachusetts; Intellicorp, of Mountain View, 
California; Technology Applications, Inc., of Jacksonville, Florida; Teknowledge Inc., of Palo Alto, California; 
Neuron Data Inc., of Palo Alto, California; and Texas Instruments. Inc., of Austin, Texas. Two inference 
engines have been disclosed in U.S. patent 4,658,370 to Erman et al., and 4,648,044 to Hardy et al., both 
assigned to Teknowledge Inc. 

30 Expert systems recently have found use in a variety of applications, such as in agriculture, chemistry, 
computer design, construction, engineering, finance, management, health care, manufacturing, and others. 
For example, in U.S. patent 4,591,983 to Bennett et al., an expert system for use in inventory control is 
disclosed, and U.S. patents 4,517,468, 4,642,782, and 4,644,479, ail to Kemper et al., each disclose a 
diagnostic system for monitoring an. industrial system, such as a steam turbine generator power plant. 

35 In the health care field, hospitals and medical laboratories have used computers to analyze blood and 
run certain tests. Data bases have been established for recommending drug therapies for certain types of 
cancers. An expert system made by Cardinal Systems Inc., Minneapolis, Minnesota, includes standard 
textbook data, and a graphical illustration of the sympathetic nervous system, for purposes of testing a 
diagnosis, and recommending therapeutic drugs. Other expert diagnostic and treatment systems are 

40 specific to a particular healthcare concern, such as, for example, a system called "Senex", specifically 
designed to aid in the treatment of breast cancer, and a system called "Hepatitis Assistant", designed for 
better diagnosis and treatment of hepatitis patients. Other health care systems are known to address the 
specific fields of epilepsy, poison control, childbirth and physical rehabilitation. 

Although prior art expert systems have been designed to address a relatively wide range of health care 

45 concerns, little is known to have been done in the area of treatment of physical trauma. That is, it is 
believed that none of the existing expert systems designed for health care applications have provided the 
ability to perform a consultation to help determine the optimal manner in which to treat a specific type of 
trauma. Such a system would be useful not only for suggesting a treatment, but also for providing a 
consultation session between an experienced surgeon and a learning surgeon. 

50 
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OBJECTS AND SUMMARY OF THE INVENTION 



It is therefore an object of the present invention to provide an expert system directed to the treatment of 
5 physical trauma. 

It is a further object of the present invention to provide an expert system for the specific field of 
orthopedic trauma. 

It is a further object of the present invention to provide an expert system which provides one or more 
treatment recommendations based upon specific classifications of physical trauma. 

10 It is a further object of the present invention to provide an expert system capable of providing a 
treatment recommendation based upon specific classes of orthopedic trauma. 

These objects are achieved by placing textbook information, such as fracture classification, in a 
database, and expert information concerning orthopedic fractures in a knowledge base. In use, a fracture to 
be treated is classified, additional trauma information is obtained and some patient history. Initial treatment 

75 suggestions based upon the classification of the fracture are judged for appropriateness based upon 
supplemental clinical information, namely the expert information in the knowledge base. During inferencing, 
additional information may be requested by the computer as needed. Treatment suggestions are presented 
in the order of preferred use. 

The expert system in accordance with the present invention provides the user with one or more 

20 suggested treatments for a patient with physical trauma. The system includes a computing device having a 
memory, a plurality of databases in the memory, an application program and an inference engine program. 
The databases include graphical illustrations of different types of physical trauma and the knowledge base 
which contains treatment information. The application program is executed in the computing device and 
interactively displays a series of screens, including at least some of the graphical illustrations, to elicit 

25 responses from the user concerning the specific type of physical trauma and specific characteristics of the 
patient. The inference engine program, which is also executed in the computing device, uses the knowledge 
base and information related to the responses elicited from the user, for selecting one or more suggested 
treatments. The application program presents the suggested treatments to the user after the execution of 
the inference engine program. 

30 In accordance with a more specific aspect of the present invention, the physical trauma consists of 
orthopedic fractures. 

BRIEF DESCRIPTION OF THE DRAWINGS 

35 

These and other objects, aspects and embodiments of the present invention will now be described in 
more detail with reference to the following drawing figures, of which: 

FIG. 1 is a diagram illustrating the structure of the expert system in accordance with the present 

40 invention; . . 

FIGS. 2 through 15 illustrate examples of screens which may be displayed in order to elicit 
information concerning characteristics of an orthopedic fracture and the patient, from the user of the 
system; 

FIG. 16 illustrates a sample screen which can be used to illustrate to the user of the system the 
45 suggested treatments for the particular orthopedic fracture and patient; 

FIG. 17 illustrates a screen which can be used to illustrate to the user . of the system possible 
complications associated with the particular fracture under study; 

FIG. 18 illustrates the hierarchy of information within the knowledge base of the expert system; 
FIG. 19 is a chart illustrating the forward and backward chaining employed by the inference engine, 
50 in accordance with the present invention; and 

FIG. 20 is an illustration of a technique for determining the optimal treatment, based on certainty 
factors and the hierarchy of treatment suggestions. 
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DETAILED DESCRIPTION OF THE INVENTION 



The expert system in accordance with the present invention will be described with initial reference to 

5 FIG. 1. The expert system 1, includes an inference engine and processor 10, inference inference 11, 
application program 12 and application interface 13. The interface engine and processor 10 functions as an 
inference engine, under the control of an inference engine program, and also executes the application 
program 12, when necessary to perform application program functions, under the overall control of the 
inference engine. Communication between the expert system and the user is by way of a CRT/keyboard 15 

70 and through the inference interface 11, for a communicating with the inference engine and processor 10, 
and by way of application interface 13, for communicating with the application program 12. The inference 
engine and processor 10 can be selected from one of the available expert system packages identified 
above, for example, the Texas Instruments Personal Consultant™ Plus. An advantage of such systems is 
their ability to run on the commonly available 80286 or 80386 DOS-based personal computers. 

75 The inference engine and processor 1 0 receives information from two data bases, namely a knowledge 
base 16, and a data base of working files 18 which are generated by the application program 12, based on 
information elicited from the user. 

The knowledge base 16 includes a collection of rules and parameter descriptions, upon which one or 
more preferred treatment techniques are based. The information within the knowledge base is based on 

20 information from experts within the relevant field, in this case physical trauma, and in particular, orthopedic 
fractures. The working files 18, comprised of files referred to as PATIENT, DISEASE, TRAUMA and 
TISSUE, reflect specific information about a patient, including, for example, the patient's specific trauma, 
characteristics of the surrounding tissue, patient information, such as height, weight, and the like, and 
information as to any pre-existing conditions, such as osteoporosis. 

25 The knowledge base 16 permanently exists within the expert system, although it should be updated 
periodically in accordance with currently available expert knowledge. The working files 18. on the other 
hand, are specific to each patient and injury, and therefore must be created with each use of the expert 
system. In accordance with the present invention, a procedures and classification data base 20, input-output 
graphics 22 and classification graphics 24, are provided for the purpose of gathering the requisite patient 

30 and trauma information from the system user, and assembling that information into the working files 18. The 
procedures and classification description data base 20 includes, for each classification of trauma, such as 
orthopedic fractures, one or more initially recommended treatments and a short description of the 
orthopedic fracture. The initial procedures are based on textbook, and perhaps expert information, and are 
used by the inference engine as a starting point from which to determine a final group of recommended 

35 procedures. Also included in the data base 20 is a hierarchy of treatment procedures, a compilation of 
characteristics of each class of fracture, and a compilation of characteristics associated with pre-existing 
diseases and other trauma that the patient may exhibit. These files will be described in more detail below. 

The input-output graphics 22 are provided as part of the expert system to elicit responses to a series of 
questions relating to the patient and trauma. The classification graphics 24, are based on the particular 

40 classes of trauma which the expert system addresses. In accordance with the present example, namely that 
of orthopedic fractures, the classification graphics 24 are based upon specific types of orthopedic fractures 
assembled from textbook and similar data. Two such sources of information are M.E. MUiler, M. Allgower, 
R. Schneider and H. WNIenegger, MANUAL OF INTERNAL FIXATION (Berlin, Heidelberg, New York: 
Springer-Verlag, 2nd ed. 1979), and M.E. Muller, S. Nazarian and P. Koch, CLASSIFICATION AO DES 

45 FRACTURES, TOME I: LES OS LONGS (Berlin, Heidelberg, New York: Springer-Verlag. August 1987). 

The input-output graphics 22 and classification graphics 24, form the screens illustrated in FIGS. 2-17. It 
will be appreciated that these screens are exemplary and that other screens, which elicit the proper 
information, may be equally suitable. Also, the order in which the screens are displayed may be changed as 
necessary. Finally, although the subject matter of the screens relates to orthopedic fractures, the same or 

50 similar techniques may be used to gather information as to other types of trauma as well. 

The application program, the knowledge base and the procedures and classification data base, 
produced in accordance with the specific example of the present invention described herein, are set forth in 
the appendix. 

The operation of the expert system in accordance with the present invention will now be described with 
55 reference to FIGS. 2-17. Initially, it will be assumed that the expert system has begun to execute the 
application program, in a manner which will be described in more detail below. 

FIG. 2 is an illustration of the first of the screens provided by I/O graphics 22. As shown in FIG. 2, the 
expert system is called ORTHOPEDIC ADVISOR. The screen of FIG. 2 provides a "menu", namely a view 
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of the primary bones in the human body, from which the user can select the particular bone which has been 
fractured. This can be done through the use of any well-known input technique, such as a touch-screen 
input, or though the movement of a cursor (not shown) by way of a mouse or cursor keys. The application 
program, provided in the appendix, supports the use of touch-screen technology and cursor movement 
5 through a mouse input or cursor keys. The user will either touch the screen at the location correspond ing 
to the bone under study or move the cursor to that bone, in order to input that information into the 
application program. In the present example, the selected bone will be the upper long bone of the leg, 
namely the femur. 

Also provided as part of the screen shown in FIG. 2 are location on the screen, designated by reference 

10 numerals 28, 30 and 32, commonly called "icons", which may be selected by the user in order to perform 
the stated functions. For example, icon 28 which bears the legend "last", can be selected by the user either 
by touching the icon or by positioning the cursor over the icon, in order to instruct the application program 
to display the previous screen. Similarly, icon 30, which bears the legend "next", may be selected by the 
user to select the next screen, and icon 32, which bears the legend "stop", may be selected to terminate 

75 the program at this point. Each of these icons appears in the screens shown in FIGS. 2 through 16, and 
since their function is the same, further reference will not be made thereto. 

The femur having been selected, the application program displays the screen illustrated in FIG. 3, either 
automatically upon selection of the particular bone, or in response to selection of icon 30 for the next 
screen. The screen illustrated in FIG. 3 shows the selected bone, namely the femur, in isolation, and 

20 requests the user to select the portion of the femur which has been fractured. This can be accomplished by 
having the user either touch or move the cursor to the effected portion of the femur 34, or by having the 
user touch or move the cursor to any one of three areas 36, 38 or 40, to select the proximal femur, the 
femoral shaft, or the distal femur, respectively. The two-digit number illustrated in the upper left-hand corner 
of the areas 36, 38 and 40 designate the numerical classification of the site of the fracture, according to a 

25 coding scheme used by the procedures and classification data base 20. 

After having selected the affected portion of the relevant bone, in this example the proximal femur, the 
screen illustrated in FIG. 4 is displayed, and the user is requested to select the affected region of the 
proximal femur, namely the (i) trochanteric region, (ii) the femoral neck, or (iii) the femoral head, classified 
as locations 31a, 31b and 31c, respectively. As shown in FIG. 4, three illustrations 42, 44 and 46 of the 

30 proximal femur are illustrated, each with cross hatching on the respective 'region, namely the trochanteric 
region in illustration 42, the femoral neck in illustration 44 and the femoral head in illustration 46. In this 
manner, the user continues as before, by simply selecting the illustration that corresponds to the fracture 
under study. In accordance with the present example, the femoral neck is selected as the region of fracture, 
and in response to that selection, the next screen, illustrated in FIG. 5, is displayed. 

35 FIG. 5 illustrates three possible types of fractures of the femoral neck, namely the femoral neck in 
abduction (classification 31 B1), the femoral neck with a vertical fracture line (classification 31 B2), and the 
femoral neck in adduction (classification 31 B3). These classifications of specific fracture types are taken 
from the relevant body of knowledge on the subject of orthopedic fractures, such as the treatises by M.E. 
Muller et al., referred to above. As before, three illustrations 48, 50 and 52 are provided for the respective 

40 fracture classifications, in order to assist the user in selecting the appropriate classification. The user selects 
the type of fracture experienced by the patient, which in this example is the femoral neck with vertical 
fracture line (classification 31 B2). In response, the screen illustrated in FIG. 6 is displayed, illustrating three 
different types of femoral neck fractures with vertical fracture lines, specifically, a fracture of the basilar 
neck (classification 31B2.1), the medial neck (classification 31B2.2) and a subcapital fracture (classification 

45 31B2.3). Three illustrations 54, 56 and 58 are provided in order to assist the user in selecting the 
appropriate type of fracture. In the present example, the medial neck (classification 31B2.2) is selected, and 
in response, the screen illustrated in FIG. 7 is displayed. 

The screen illustrated in FIG. 7, which is generated in accordance with the graphics information in I/O 
graphics 22, requests that the user provide information as to any other trauma that the patient has 

so experienced. For example, if the patient has lost blood, the user would select icon 60 to indicate 
cardiovascular trauma. In response to this selection, the screen illustrated in FIG. 8 is displayed and the 
user indicates the severity of blood loss, by selecting one of the choices 62. After making such as selection, 
the screen illustrated in FIG. 7 is again displayed, and a legend indicating the severity of cardiovascular 
trauma will appear next to icon 60. The user can then select other types of trauma, if applicable. This 
55 information is placed into the file TISSUE, in the working files 18, and is also used by the application 
program to arrive at an injury severity score (ISS), which is similarly placed in the file TISSUE. The 
calculation of the ISS, is based on the technique disclosed in the article by the American College of 
Surgeons Committee on Trauma, entitled "Field Categorization of Trauma Patients and Hospital Trauma 
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Index", BULLETIN OF THE AMERICAN COLLEGE OF SURGEONS, Vol. 65, February 1980, pp. 28-33. 

The next screen displayed is illustrated in FIG. 9 in which the user specifies the damage to the soft 
tissue surrounding the fracture and the open grade. This information also goes to the file TISSUE. 

The screen illustrated in FIG. 10 is then displayed and the user indicates the patient's weight, age, 

5 height and sex. In this example, the patient weighs 60 kilograms, is 35 years old, is 170 centimeters tall and 
is male. This screen readily lends itself to touch-screen applications, but can also be used with cursor 
movement as well. The next screen, showing in FIG. 11, requests the user to input information concerning 
the patient's occupation or lifestyle, in the context of the injury, i.e., whether the patient is sedentary, active 
or vigorous. In this example, the patient is considered "active". The information elicited from the user by 

jo the screens shown in FIGS. 10 and 1 1 is placed in the PATIENT file in the working file 18. 

The next screen, shown in FIG. 12, requests the user to indicate any pre-existing illnesses that the 
patient might have, or other treatment concerns about the patient, since such considerations could affect the 
patient's ability to tolerate surgery, to heal properly, to remain convalescent (recumbency), or to follow 
instructions, for example. Six icons 64 designate selections of the following treatment concerns: surgery, 

75 healing, recumbency, patient reliability, bone quality and specific diseases. The first five v of these treatment 
concerns are used by the application program to enter information, if applicable, into the file DISEASE in 
the working files 18. The sixth health concern, namely SPECIFIC DISEASES, elicits information from the 
user to determine whether any of the patient's pre-existing diseases would cause one of the first five health 
concerns, and that information would be placed into the file DISEASE, as well. 

20 Specifically, when the user selects SPECIFIC DISEASES as a treatment concern, the application 
program displays the screen illustrated in FIG. 13 and requests that the user indicate, using icons 66, the 
physiological system associated with the patient's specific illness, in this example, the cardiovascular 
system is selected, and in response to that selection, a menu 68, FIG. 14, is displayed, and the user 
indicates one of the particular types of specific cardiovascular diseases. In this case, vascular insufficiency 

25 is selected. In response to this selection, the application program inquires of the procedures and 
classification data base 20 to see what specific treatment concerns are caused by vascular insufficiency. 
Using the DISEASE data base in the procedures and classification data base 20 (a copy of which is 
provided in the appendix), it is determined that vascular insufficiency causes a surgery concern with a 50 
percent certainty factor. Thus, in response to selecting vascular insufficiency, the application program 

30 displays the screen illustrated in FIG. 15, to inform the user of the surgery concern. Alternatively, any of the 
surgery, healing, recumbency, reliability and bone quality concerns can be input directly through the use of 
the first five icons 54, FIG. 12. 

After entering the information concerning treatment concerns, the user can now instruct the expert 
system to proceed with the consultation, by selecting the NEXT icon in FIG. 15. In response, the inference 

35 engine 14, FIG. 1, applies the rules of the knowledge base 16, to the information contained within the 
working files 20 concerning the specifics of the patient and the orthopedic fracture. In the event that further 
information is required, for a particular set of inputs, the inference engine may generate one or more further 
inquiries through the expert system interface 11, in order to gather the additional data from the user. For 
example, the expert system may inquire as to whether the injury resulted from a simple fall, from which the 

40 inference engine might infer that the patient is osteoporotic, if such information is considered to be 
important. 

When the inference engine has gathered all the necessary information, it completes its tasks by 
achieving certain "goals", and then returns temporary control to the application program. A screen is then 
displayed, as illustrated in FIG. 16, and includes a table 70 which shows the classification of the fracture. 

45 and selected characteristics of the patient and trauma. In addition, four choices 72, 74, 76 and 78 are 
displayed as the treatments selected by the inference engine, for this specific case. These treatments may 
be ordered in terms of the most to least highly suggested, either by positional order, as displayed, or by a 
numerical or alphabetic indication by each treatment, in this case, the suggested procedures for this patient 
are an A-frame, a hip prosthesis, a DHSTM implant and lag screws. Additionally, the user at this point by 

so selecting a particular one of the recommended treatments, for example the DHSTM implant (the treatment 
indicated by the reference numeral 76), the application program will actually show the DHSTM implant 80 in 
place. 

Finally, when the user is finished with the screen shown in FIG. 16, a further screen, illustrated in FIG. 
17, can be displayed to illustrate to the user a statistical summary of complications experienced with 
55 patients with similar fractures, if such a data base is available. 

The program flow will now be described with reference to an example which uses an inference engine 
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developed by Texas Instruments, called Personal Consultant Plus, Version 2.0. It will be appreciated, 
however, that other inference engines, such as those associated with some of the above-mentioned 
commercially available expert systems could be used as well. Reference will also be made to the following 
programs and data bases which are attached hereto as an appendix: 



20 
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Program or Data Base 


Appendix 




Application Program 


Pages 1-70 




Knowledge Base Rules and Parameter Descriptions 


Pages 71-93 


10 


Procedure Hierarchy 


Page 94 




Initial Procedure Suggestions 


Pages 95-96 (97 not used) 




Classification Descriptions 


Pages 98-102 




Batch Files 


Pages 103-105 




Preexisting Diseases 


Page 106 


15 


Trauma Descriptions 


Page 107 




Classification Expansions 


Pages 108-109 



The application program, at pages 1 through 70 of the appendix, generally corresponds to the 
application program 12 of FIG. 1. It is written in MICROSOFT C programming language for use on IBM AT 
compatible computers, and makes use of a data base program called BTRIEVE, by SoftCraft, of Austin, 
Texas, and of a graphics program called ESSENTIAL GRAPHICS, Version 1.5, by Essential Software, 
Maplewood, New Jersey. 

The Knowledge Base Rules and Parameter Descriptions at pages 71 through 93 of the appendix, form 
the knowledge base 16 of FIG. 1. The Procedure Hierarchy, Initial Procedure Suggestions, Classifications 
Descriptions, Preexisting Diseases, Trauma Descriptions and Classification Expansion databases form the 
database 20 of FIG. 1. 

To initiate the program the user will type the command "AOPC", which will call the batch file 
"AOPC.BAT" found in the batch file listings in the appendix. That batch file in turn causes the inference 
engine program to be executed, to thereby create the inference engine, which controls all further program 
flow. The inference engine first requests the name of the knowledge base with which it is to work, and by 
responding "AOOA", the name given to the knowledge base of the present example, the inference engine 
accesses the appropriate knowledge base. 

The inference engine first examines a listing of parameters entitled FRAMETYPES in the knowledge 
base, in order to determine the structure of the knowledge base. The parameter group FRAMETYPES is set 
forth on page 84 of the appendix, but the structure it implies is also shown in FIG. 18. 

With reference to that figure, the rules and parameters of the knowledge base, and associated "goals", 
are divided into logical categories, commonly referred to as "frames", in the present example, four such 
frames exist, namely, ADVISE, PROS-CONS, PATIENT and TRAUMA. The parameter group FRAMETYPES 
indicates to the inference engine the hierarchy of frames, as shown in FIG. 18. The first, and highest level 
frame is ADVISE, followed by PROS-CONS, which in turn is followed by the PATIENT and TRAUMA 
frames, which share the lowest level in the hierarchy. Also shown in FIG. 18 for the ADVISE and PROS- 
CONS frames are goal associated with each frame. No goals are assigned to the PATIENT and TRAUMA 
frames. 

The rules within each frame are logically grouped according to function. For example, the PATIENT 
frame contains rules for determining specific characteristics of the patient, for example whether the patient 
is young or old, whether the'patient is osteoporotic, and the like. The rules in the TRAUMA frame determine 
characteristics of the trauma, for example whether the trauma involves bilateral fractures of weight-bearing 
bones. The rules within the PROS-CONS frame rely upon the inferences drawn, and the conclusions 
reached, in the PATIENT and TRAUMA frames. For example, if it is determined from the PATIENT frame 
that the' bone site is osteoporotic, then the rules in the PROS-CONS frame might determine that there is 
strongly suggestive evidence that a procedure which allows for settling to occur is important. Finally, the 
rules within the ADVISE frame rely upon the inferences and conclusions drawn in the PROS-CONS, 
PATIENT and TRAUMA frames, and based upon the inferences and conclusions drawn in those frames, the 
ADVISE frame arrives at a final set of recommended procedures. 

The inference engine will inspect the list of frametypes and determine from that list the highest order 
frame, which in this example is ADVISE. The inference engine then looks at the goals stated for the ADVISE 
frame. As shown in FIG. 18, the stated goals are INPUT-READ, TREATMENT, and FINISHED. The 
inference engine, upon instantiating any of the frames shown in FIG. 18, including the ADVISE frame, tries 
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to achieve the stated goals, in the stated order. In the case of the ADVISE frame, the first such goal is 
INPUT-READ. The inference engine then searches for the parameter "INPUT-READ" within the parameter 
descriptions in the knowledge base, and the listing as it appears in the knowledge base (and appendix) is 
set forth immediately below, to help facilitate this explanation: 



INPUT-READ [ADVISE-PARMS] 

w TRANSLATION: (information available from initial system queries) 
TYPE: YES/NO 

USED-BY: RULE026 RULE007 RULE025 RULE038 RULE039 
UPDATED BY: SREFMARK RULE026 

The parameter INPUT-READ is indicated as being one of the ADVISE parameters. Its translation, for the 

75 convenience of the system designer, is indicated as taking information from initial system queries. The type 
of parameter is indicated as being "yes/no", i.e. a single valued variable, as opposed to a variable which 
can take on numerous values, The INPUT-READ parameter is indicated as being used by Rules 26, 7, 25, 
38 and 39, and updated by Rule 26, which is further indicated as being a self-referencing rule, meaning that 
the parameter "INPUT-READ" is found in both the "if" and "then" portions of the rule, as explained in more 

20 detail below. 

The inference engine then branches to the rule that updates INPUT-READ, namely Rule 26, which 
executes a disk operating system call to a batch file INITIT.BAT. This batch file, which also appears in the 
appendix, calls the application program 12, FIG. 1. 

Execution of the application program creates the working files 18, FIG. 1, namely TRAUMA, TISSUE, 
25 PATIENT and DISEASE, in response to the information elicited from the user, in combination with the 

information contained in the databases in database 20. Specifically, the TRAUMA file includes the following 

parameters: 

FRACTURE CLASS 

ARTICULAR 
30 INHERENTY STABLE 

NUMBER-PIECES 

POTENTIALLY STABLE 

WEIGHT-BEARING 

The application program designates the FRACTURE CLASS in the TRAUMA file to be the class of 
35 fracture designated by the user in the screen illustrated in FIG. 6, namely classification 31B2.2. The 
remaining parameters in the TRAUMA file are given values based upon the CLASS EXPANSION database, 
in database 20, which, for each fracture classification provides information as to whether the fracture is 
articular, inherently stable, etc. It will also be noted that one or more initially indicated treatments are 
provided by the Initial Procedure Suggestion data base, based upon the fracture classification. 
40 The file TISSUE includes the following parameters: 
EXTREMITY 
NERVOUS 
RESPERATORY 
ABDOMINAL 
45 CARDIOVASCULAR 
SKIN 

COMPLICATIONS 
ISS 

SOFT TISSUE DAMAGE 
50 OPEN CLASS 

The first seven parameters of the TISSUE file are designated by the application program in response to 
the information provided by the user in response to the screen illustrated in FIG. 7. The SOFT TISSUE 
DAMAGE and OPEN CLASS parameters are designated in accordance with the information provided by the 
user in response to the screen illustrated in FIG. 9. Finally, the injury severity score (ISS) is calculated by 
55 the application program, based on the other parameters in the TISSUE file. 

The PATIENT file contains the following parameters, each of which is taken directly from the 
information given by the user in response to the screens illustrated in FIGS. 10 and 11: 
AGE 
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SEX 

WEIGHT 
HEIGHT 

LIFESTYLE/OCCUPATION 
5 The DISEASE file contains the following parameters: 

HEALING 

OSTEOPOROTIC 

CONDOLESCENT RISK 

SURGERY INTOLERABLE 
10 UNRELIABLE 

These parameters are either taken directly from the user inputs in response to the screen illustrated in 
FIG. 12, or through use of the Preexisting Disease database, in database 20, if the user selects one or more 
of the diseases set forth in the screen illustrated in FIG. 13. 

Upon completion of the creation of the working files 18, the application program relinquishes control to 
75 the inference engine, which, while still in the ADVISE frame, checks off the INPUT-READ goal of that frame 
as being completed. The inference engine and processor 10 finds the next goal, TREATMENT, in the 
ADVISE frame, and searches the knowledge base 16 for the parameter TREATMENT, which is reproduced 
below: 



20 



TREATMENT [ADVISE-PARMS] 

TRANSLATION: (the suggested treatment for this orthopedic fracture) 
25 LEGALVALUES: TEXT 
TYPE: MULTIVALUED 

UPDATED-BY: RULE010 RULE005 RULE009 RULE004 RULE002 RULE003 RULE032 RULE008 RULE007 

The goal TREATMENT is to determine one or more preferred treatments for the specific patient and 
trauma. The above listing indicates that the TREATMENT parameter is multivalued and is updated by Rules 
30 10, 5, 9, 4, 2, 3, 32, 8 and 7. The inference engine selects the first rule which updates the TREATMENT 
parameter, namely Rule 10, and searches the knowledge base for that rule. It should be noted that all rules 
in the knowledge base must be in either the same frame as the parameter it updates (TREATMENT in this 
case), or in a lower frame. Rule 10, which is found in the ADVISE frame, is set forth below: 



RULE 010 [ADVISE RULES] 



IF: VERSATILE 

40 THEN- TREATMENT = "X-FIX" CF 3 AND TREATMENT = "CAST" CF 7 AND TREATMENT = 
"TRACTION" CF 7 AND TREATMENT != "PLATE" CF 1 AND TREATMENT != "NAIL" CF 3 AND 
TREATMENT = "LAG SCREWS" CF 3 AND TREATMENT = "WIRE" CF 3 AND TREATMENT = "OPEN 
REDUCTION" CF 3 

An interpretation of the above rule is as follows. If a treatment that is versatile in its application is 
45 important, then there is weakly suggestive evidence (with a certainty factor of 3%) that the suggested 
treatment for this orthopedic fracture is X-FIX, and there is weakly suggestive evidence (certainty factor of 
7%) that the suggested treatment for this orthopedic fracture is CAST, and so on. An exclamation point 
before an equal sign indicates that the stated treatment is not recommended, with a given certainty factor. 
For example, Rule 10 states that there is weakly suggestive evidence (certainty factor of 1%) that the 
so suggested treatment is not PLATE. 

The inference engine now tries to determine the truth of the premise of this Rule, namely whether a 
treatment that is versatile in its application is important. Thus, the parameter VERSATILE becomes the 
inference engine's new goal. The inference engine 14 searches the knowledge base .16 for the parameter 
VERSATILE, and that parameter (found in the ADVISE frame) in reproduced below: 



55 
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VERSATILE [ADVISE PARMS] 

TRANSLATION: (a treatment that's versatile in its application is important) 
DEFAULT: (NO) 
5 TYPE: YES/NO 

USED-BY: RULE010 
UPDATED-BY: RULE041 

If a value of VERSATILE cannot, for one reason or another, be calculated, the default value for the 
parameter is "No". VERSATILE is defined as a single valued parameter (Yes/No), is used by Rule 10 and is 
70 updated by Rule 41 . The inference engine will search the knowledge base for Rule 41 which is reproduced 
below: 



75 RULE 041 [TRAUMA-RULES] 

IF: ODD SIZE OR VALUE ISS > 30 
THEN: VERSATILE CF 60 

The inference engine will at this point note that Rule 41 is located within the TRAUMA frame, FIG. 18, 
20 rather than in the ADVISE frame, where the parameter VERSATILE is located. At every instance, or 
"instantiation" in which the inference engine must move from one frame to another, it may only do so 
through a contiguous frame in the hierarchy, shown in FIG. 18. Thus, in order for the inference engine to 
move from the ADVISE frame to the TRAUMA frame, it must first instantiate the PROS-CONS frame. 

Upon instantiating the PROS-CONS frame, the inference engine selects all of the goals within the 
25 PROS-CONS frame as its current set of goals, with the goals being taken in the order listed in the 
FRAMETYPE file, as shown in FIG. 18. Thus, the parameter STRONGER becomes the next goal, or more 
properly "sub-goal" of the inference engine. 

The inference engine searches the knowledge base for the parameter STRONGER, in the current frame 
(PROS-CONS) or a higher frame (ADVISE). The STRONGER parameter is found in the ADVISE frame and 
30 is listed below: 



STRONGER [ADVISE-PARMS] 

35 

TRANSLATION: (a relatively very strong system is important) 
DEFAULT: (NO) 
TYPE: YES/NO 
USED-BY: RULE002 
40 UPDATED-BY: RULE011 

Since this parameter is updated by Rule 11, the inference engine searches for that rule in the current 
(ADVISE) or lower frames. Rule 1 1 will be found in the PROS-CONS frame, and is listed below: 



RULE 011 [PROSCONS-RULES] 

IF: BI-WEIGHT 

THEN: STRONGER CF 90 

50 The rule states that if the trauma involves bilateral fractures of weight-bearing bones, there is strongly 
suggestive evidence (90%) that a relatively strong system is important. The inference engine must now find 
the parameter Bi-WEIGHT in the knowledge base, and the parameter is defined therein as follows: 
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BI-WE1GHT [PROSCONS-PARMS] 

TRANSLATION: (the trauma involves bilateral fractures of weight bearing bones) 
PROMPT: YES 
5 TYPE: YES/NO 
USED-BY RULE040 

The designation "PROMPT: YES" indicates that the inference engine will prompt the user to provide or 
confirm this information, if necessary. Since the parameter BJ-WEIGHT is updated by Rule 40, the inference 
engine searches the knowledge base for Rule 40, which is found in the TRAUMA frame, as follows: 



RULE 040 [TRAUMA-RULES] 

16 IF: VALUE EXTR < 4 
THEN: ! BI-WEIGHT 

This rule states that if the extremity value is less than four, then the trauma does not involve bilateral 
fractures of weight-bearing bones. The inference engine searches the knowledge base for the parameter 
EXTR, and it is found in the TRAUMA frame, as follows: 



EXTR [TRAUMA-PARMS] 

25 TRANSLATION: (the extremity score from the health trauma index) 
TYPE: SINGLEVALUED 
USED-BY: RULE040 
UPDATED BY: RULE039 

Since this parameter is updated by Rule 39, the inference engine searches the knowledge base for 
30 Rule 39, which is located in the TRAUMA frame, as follows: 



RULE 039 [TRAUMA-RULES] 
IF: INPUT-READ 

THEN: READ-FRAME "tissue" QUOTE (EXTR NERV RESP ABDM CARD SKIN COMP ISS SOFT-TISSUE- 
DAMAGE OPEN-CLASS) TALLY 

This rule states that if information is available from the initial system quiries, then the stated data are to 
be read from the file TISSUE. Since the premise is true, namely that information is available from the initial 
system queries, then the inference engine reads the stated values from the file TISSUE in the working files 
20, FIG. 1, including the value of the extremity score EXTR. Having determined the value of the extremity 
score, the inference engine is now ready to arrive at a value for the sub-goal STRONGER. This is 
accomplished through a process called "backward-chaining" and involves stepping back through the path 
that resulted in the value for the parameter EXTR. With reference to FIG. 19, it will be seen that the value of 
EXTR was determined by invoking Rule 11, then Rule 40, and then Rule 39, through a "forward chaining" 
process. The backward chaining takes these rules in the reverse order: Ruie 39, then Rule 40, then Rule 11. 
From Rule 39, Rule 40 is invoked, namely that if the extremity value is less than four, then the trauma does 
not involve bilateral fractures of weight bearing bones. Since the value of the extremity score is three, then 
the ruie is satisfied, and the trauma does not involve bilateral fractures of weight-bearing bones. The next 
.rule in the chain, Rule 11, is tested, and since the premise of bilateral fractures of weight-bearing bones is 
not true, then Rule 11 fails and no action is taken. At this point, the inference engine will return to the 
parameter definition of STRONGER to see whether it is updated by any rules in addition to Rule 11, and if 
so, tests those rules in the same manner, to see whether they assign a value to the parameter. Since there 
are no other rules which update the parameter STRONGER, the inference engine selects for the parameter 
STRONGER the default value, in this case "NO". In essence, the inference engine has just concluded that a 
relatively strong system is not important 

It should be noted that for single-valued parameters, such as STRONGER, which require an answer in 
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the form of a YES/NO, MALE/FEMALE or YOUNG/OLD, the inference engine will try ail of the rules which 
update that parameter until the rule tests true, and no further rules which update the parameter will be 
tested. However, for multiply valued parameters, the inference engine will repeat the process for all of the 
rules which update that parameter, until all such rules are exhausted. In the present example, the only 

5 multiply valued parameter is TREATMENT ~ all others are single valued. 

Returning to FIG. 18, it will be seen that the first listed sub-goal in the PROS-CONS frame, namely 
STRONGER, has been determined, and the inference engine will proceed with the remaining sub-goals in 
the order listed. However, for the purposes of illustrating the present example, it will now be assumed that 
all of the sub-goals preceding VERSATILE have been satisfied, and the explanation will proceed with the 

io sub-goal VERSATILE. 

The inference engine searches the knowledge base for the parameter VERSATILE and its parameter 
description, stated above, indicates that VERSATILE is updated by Rule 41, also stated above. Rule 41 
states that if the patient is either very large or the injury severity score is greater than 30, there is evidence, 
having a certainty factor of 60%, that a treatment that is VERSATILE in its application is important The 

75 inference engine then searches for the parameter ODD-SIZE, and will find the fQllowing parameter 
description in the PROS-CONS frame: 



20 ODD-SIZE [PROSCONS-PARMS] 

TRANSLATION: (the patient is very large) 
PROMPT: YES 
TYPE: YES/NO 
25 USED-BY: RULE041 

UPDATED-BY: RULE021 RULE022 

The inference engine will then search for the first rule that updates the parameter, namely Rule 21 . 
which is found in the PATIENT frame as follows: 



RULE 021 [PATIENT-RULES] 

IF: VALUE HEIGHT > 198 OR VALUE WEIGHT > 136 
35 THEN: ODD SIZE 

Thus, if the height of the patient is greater than 198 centimeters or the weight of the patient is greater 
than 136 kilograms, then the patient is considered to be very large. The inference engine then searches the 
knowledge base for the parameter HEIGHT which is found in the patient frame as follows: 



HEIGHT [ P ATI ENT-P ARMS] 

TRANSLATION: (the height of the patient in centimeters) 
45 PROMPT: YES 

EXPECT: POSITIVE-NUMBER 

RANGE: (30-230) 

TYPE: SINGLEVALUED 

USED-BY: RULE021 RULE022 
so UPDATED-BY: RULE 025 

The inference engine then searches for Rule 25 which is found in the patient frame, as follows: 



55 
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RULE 025 [PATIENT-RULES] 
IF: INPUT-READ 

THEN: READTRAME "patient" QUOTE (AGE SEX WEIGHT HEIGHT LIFEOCC) TALLY 
5 The inference engine, in response to reading Rule 25 will read from the file PATIENT in the working 
files 20, FIG. 1, the stated parameters, including HEIGHT and WEIGHT. 

The inference engine will then chain back to Rule 21 (stated above) to see whether the ODD-SIZE 
premise is true. For this example, it will be assumed that the patient's height is greater than 198 
centimeters or that the patient's weight is greater than 136 kilos, and therefore ODD-SIZE is true. Had this 
10 not been the case, the inference engine would have returned to the parameter description for ODD-SIZE 
(stated above) to find that it is also updated by Rule 22, to see whether Rule 22 would yield a true value for 
ODD-SIZE. However, since Rule 21 yielded a true value, and since the ODD-SIZE parameter is single- 
valued, the inference engine can ignore Rule 22. 

Continuing the backward chaining process, the inference engine returns to Rule 41, and since ODD- 
75 SIZE is true, then it is also true with a 60% certainty factor that a treatment that v is VERSATILE in its 
application is important. 

Having determined the value of the sub-goal VERSATILE, the remaining sub-goals are determined in 
the same manner, and then the inference engine returns to the rule which originally instantiated the PROS- 
CONS frame, namely Rule 41. However, Rule 41 has already been satisfied, so the inference enginechains 

20 back to the previous rule, namely Rule 1 0. 

Rule 10 (stated above) starts by indicating that there is a 3% certainty factor that the suggested 
treatment is an X-FIX, if a VERSATILE treatment is important. In this example, it was deter mined that a 
VERSATILE treatment was indicated as being important with a certainty factor of 60%. The certainty factor 
of 3% stated for the X-FIX treatment in Rule 10 is therefore multiplied by the 60% certainty factor that a 

25 VERSATILE treatment is important, and that result is added to a number related to the previous value of X- 
FIX if any exists, either from a previous calculation of the same type, from a different rule which assigned a 
value to X-FIX, or from a value assigned to the initial treatments selected by the Initial Procedure 
Suggestions data base, based on the fracture classification, as described above. The updated total for X-FIX 
as calculated by Rule 10 is related to these quantities according to well known formulas employed by the 

so commercially available inference engines, or for example, the formulas stated in U.S. patent 4,648,044 to 
Hardy et al. The remaining values of the parameters CAST, TRACTION, PLATE, and the others set forth in 
Rule 10 are calculated in the same manner, based on the 60% certainty factor associated with a 
VERSATILE treatment and any previous value for the particular parameter. 

After processing Rule 10, the inference engine returns to the parameter which originally invoked it, 

35 namely TREATMENT, which is stated above. The next rule which updates the TREATMENT parameter is 
Rule 5, which is as follows: 



40 RULE 005 [HOUSE-RULES] 
IF: ACCURATE 

THEN* TREATMENT = "X-FIX" CF 13 AND TREATMENT = "CAST" CF 0 AND TREATMENT ! = 
"TRACTION" CF 17 AND TREATMENT = "NAIL" CF 23 AND TREATMENT = "LAG SCREWS" CF 30 

45 AND TREATMENT = "WIRE" CF 0 AND TREATMENT I- "JOINT REPLACEMENT" CF 17 AND 
TREATMENT != "OPEN REDUCTION" CF 20 AND TREATMENT = "PLATE" CF 30. 

The premise of Rule 5 is the need for a relatively accurate result, and the inference engine performs 
the same chaining functions necessary to determine whether an accurate result is necessary, and with what 
certainty factor, in a manner similar to that performed for the parameter VERSATILE. After determining a 

50 cer tainty factor for the parameter ACCURATE, the inference engine performs the same mathematical 
functions with the certainty factors associated with the parameters listed in Rule 5, and with the certainty 
factor for the parameter ACCURATE, and those values are added to the previous values, if any, for each of 
the possible treatments. 

Returning to the description of the parameter TREATMENT, the same procedure is followed for Rules 
55 9, 4, 2, 3, 32, 8 and 7, until final values are generated for each of the possible treatments referenced in 
those rules. At the conclusion of each of those rules, the inference engine is done with the goal 
TREATMENT, and the next goal in the ADVISE frame is FINISHED. The inference engine will search the 
knowledge base for the description of the parameter FINISHED, which functions to call an application 
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program called FINAL (or FINCUR, if a touch screen is not available). This program presents the debriefing 
screens illustrated in FIGS. 16 and 17, based on a selected number of the most highly indicated treatments, 
namely those with the highest values. 

In addition to calculating the values for each treatment in accordance with the procedure outlined above, 

5 additional processing, in accordance with the present invention, may be made in order to increase the 
likelihood that the proper treatment or treatments will be selected. 

Specifically, each of the recommended treatments forms part of a hierarchy of suggested treatments, 
as indicated by the file Procedure Hierarchy data base in the working files 20. A chart illustrating the 
hierarchy for some selected treatments is shown in FIG. 20. The broadest treatment is INTERNAL, and two 

w types of internal treatments are IMPLANT and JOINT REPLACEMENT. Furthermore, two types of implants 
are PLATE and NAIL. Likewise, two types of plates are DHSTM, and CONDYLAR, and two types of nail 
treatments are ENDER'S and LOCKING. Finally, under joint replacement, the two treatments are HIP 
PROSTHESIS and KNEE REPLACEMENT. 

The treatment hierarchy shown in FIG. 20 has four levels, numbered 0 through 3, as shown. The broad 

75 category of INTERNAL treatments is at level 0, IMPLANT and JOINT REPLACEMENT are at level 1, 
PLATE, NAIL, HIP PROSTHESIS and KNEE REPLACEMENT area at level 2 and DHSTM, CONDYLAR, 
ENDER'S and LOCKING are at level 3. A total score for each of the most specific treatments (DHSTM, 
CONDYLAR, ENDERS, LOCKING, HIP PROSTHESIS and KNEE REPLACEMENT) can be determined as 
follows. The certainty factors associated with each of the treatments shown in FIG. 20, as determined by the 

20 rules implicated by the TREATMENT goal and indicated in parenthesis underneath each treatment, are 
multiplied by a weighting factor, such that the certainty factors associated with the more specific treatments 
are more heavily weighted than those associated with the broader treatment categories. In the present 
example, a weighting factor equal to four plus the number of the level of treatment, equals the weighting 
factor. As shown the certainty factors are multiplied by 4, in level 0, by 5 in level 1 , 6 in level 2, and so on. 

25 It should be noted that this specific weighting function is exemplary, and others may be found to be more 
suitable for particular applications. 

After multiplying the certainty factor of each treatment suggestion by the weighting factor, the individual 
totals for each of the most specific (highest level) treatments are added to the individual totals in each of its 
parent categories, up to and including the broadest category (level 0). For example, the individual total for 

30 DHSTM, is 560. This figure is added to the figure for its parent (PLATE = 90), its grandparent (IMPLANT = 
85) and its great-grandparent (INTERNAL = 60), to yield a total score of 795. The higher the total score, 
the more highly the specific treatment is recommended. A selected number of the most highly recom- 
mended treatments may be displayed, as illustrated in FIG. 16. It will be noted that in FIG. 16, the 
information within icons 66, 68, 70 and 72 generally indicate the treatment hierarchy for the respective 

35 treatment. 

Thus, the present invention provides a highly sophisticated system for providing a set of recommended 
treatments for specific categories of physical trauma, using state-of-the-art expert system technology. 
Various changes and variations to the present invention will occur to those skilled in the art in view of the 
foregoing description. For example, other types of physical trauma, in addition to orthopedic fractures will 
40 find equally suitable implementation using the techniques in accordance with the present invention. It is also 
intended that the particular classifications of orthopedic fractures, treatments, and other database informa- 
tion be exemplary, rather than limiting, and that all such changes and variations be encompassed so long 
as the present invention is employed, as defined by the following claims. 

45 

Claims 

1. An expert system for providing to a user one or more suggested treatments for a patient with 
physical trauma, comprising: 
so a computing device having a memory; 

a plurality of data bases in the memory including graphical illustrations of different types of physical trauma 
and a knowledge base having treatment information; 

an application program, for execution in the computing device, for interactively displaying a series of 
screens including at least some of the graphical illustrations, to thereby elicit responses from the user 
55 concerning the specific type of physical trauma and specific characteristics of the patient; and 

an inference engine program, for execution in the computing device, for use with the knowledge base and 
information related to the responses elicited from the user, for selecting the one or more suggested 
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treatments; 

the application program presenting the suggested treatments to the user after completion of the execution 
of the inference program. 

2. An expert system for providing to a user one or more suggested treatments for a patient with an 
5 orthopedic fracture, comprising: 

a computing device having a memory; 

a plurality of data bases in the memory, including graphical illustrations of different classifications of 
orthopedic fractures and a knowledge base having treatment information; 

an application program, for execution by the computing device, for interactively displaying a series of 
w screens on a display, including at least some of the graphical illustrations, to thereby elicit responses from 
the user concerning the specific classification of orthopaedic fracture, and specific characteristics of the 
patient; and 

an inference engine program, for execution in the computing device, for use with the knowledge base and 
information related to the responses elicited from the user, for selecting the one or more suggested 
15 treatments; 

the application program presenting the suggested treatments to the user after completion of the execution 
of the inference program. 
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COPYRIGHT (C) SYHTHES 1987 ALL RIGHTS RESERVED 



/* COPYRIGHT (C) SYNTHES 1987 ALL RIGHTS RESERVED */ * induce 

<stdio.h> #include <string.h> #include <dos.h> finclude <stdlib.h> ^include 
<memory.h> # include <conio.h> 

/****** program to determine initial information for aooa ********/ 



/* btrieve definitions */ #define B_OPEN 0 #define B_CLOSE 1 #define BJSETNX 
^define B GETEQ 5 #define B_GETGE 9 #define EOF_ERR 9 /* database parameters 
int op? - /^operation code*/ char pos blkl[128]; /*position block*/ c 

pos blk2[128]7 int buf len; /* length of~above */ char key_buf[30]; /+ 
buffer */ int key_num? " /* key number */ int status; /* error status 

char entry[30]; /* key copy */ struct 

char class [10] reclassification code */ 
char proc[30]; /* procedure suggestion */ 
char empty [39] ; 
} sugg_rec; struct 

char class [10]; /* classification code */ 

char artic[3]; /*yes/no articular*/ 

char inher[3]; /*yes,no inherently stable */ 

char number [2]; /* number of pieces */ 

char potent [3]; /*yes/no potentially stable*/ 

char weightb[3]; /*yes/no weightbearing */ 

char empty [1] ; 

} expanjrec; 



FILE *tempf; /* temporary file for data passing */ 

main() { 

int choice, upto, statl, stat2 ; 

/* now prepare for touchscreen use */ 
info_stop(); /*clear problems info window*/ 
info_start() ;/*initialize info window*/ 
setega ( ) ; 

initgraf (16,2,0) ; /* mode of 640 X 350 colors*/ 
f ontinit ( ) ; 
fontld(0,"IBMROM ,f ) ; 
set_choice() ; 
upto « 0; 

while (upto < 10) /* main while */ 

switch (upto) /* main switch */ 

{ 

case 0: /* class info */ 

if ( ( tempf « fopen ("trauma • rd" , "v") ) — NULL) { 
fprintf (stderr, "%s couldnt open file » trauma . rd 1 ") ; 
exit(l); ; 
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class_info() ; /* write frac-class, #procedures*/ 
break; 

case 1: /* tissue info */ 

if ( ( tempf - fopen ( "tissue. rd" , "w" ) } «- NULL) { 

fprintf (stderr, "%s couldnt open file 1 tissue. rd 1 ") ; 
exit(l) ; 

} 

part_halo draw( w c:\\clinical\\hti,pic" l 4) ; 
statl«htiT} ; 

part_halo draw("c:\\clinical\\inco.pic",4) ; 
stat2«soft() ; 
break; 
case 2 : 

if ( ( tempf - fopen ( "patient. rd" , "v» ) ) — NULL) { 
fprintf (stderr, "%s couldnt open file •patient. rd* ") ; 
exit(l) ; 
) 

part_halo draw ("c:\\clinical\\initl. pic" r 4) ; 
statl«patTent ( ) ; /* write out initial patient info */ 
part_halo_draw("c: \\clinical\\lifeocc.pic H , 4) ; 
stat2*life() ; 
break; 

case 3 : /***** disease info */ 

if ( ( tempf « f open ( "disease. rd", "w" ) ) «« NULL) { 
fprintf (stderr,"%s couldnt open file 1 patient 1. rd ,,f ) ? 
exit(l) ; 
) 

part_halo_draw( "c: \\clinical\\concern.pic" , 4 } ; 
statl»concern ( ) ; 
break; 
} /* end main switch */ 
upto ++; 

fcloseallC); /* close all the open files */ 

if (statl « 1 || stat2 1 && upto > 1) upto ■ upto-2 ; /* back a level 
)/* end main while */ 
/* prepare to finish */ 

initgraf (3 , 0, 0) ; /* set back to 80 column with color */ 
inf ojstop () ?/*stop it */ 
fcloseallC); /* close all files */ 
exit() ; 

} /* end of main program for inital data */ 
/************************************** int 

class_info() { 

int -choice, status; 
char data [10] ; 



/* get user input */ 
classify (entry) ; 

/* open database for, classification expansion */ 

status - btrv(B_OPEJf,pos_blk2 / &expan_rec r &buf_len / "classexpan.dat",0) ; 
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/* now get classification expansion data */ 

buf len « sizeof (expan rec) ? 

key~num - 0;/* classification code */ 

strcpy(key buf, entry) ;/* copy into key buffer for use */ 

status - btrv(B GETEQ,pos_blk2,fcexpan_rec, &buf_len,key_buf ,key_nur.) ; 
if (status T-0) printf ("status - status); 

printf ("\n %.10s \n articular:*. 3s \n inherently stable: % ,3s 
"expan rec. class, expan rec.artic,expan_rec.inher) ? 

printf ("\n number~pieces: %.2s \n potentially stable:%.3s 
".expan rec. number, expan_rec. potent ) ; t 

printf ("\n weigh tbearing :%. 3s ",expan_rec.weightb) ; 

data out(expan rec. class., 10,100, "classification") ; 

yesno* out(expan rec.artic, 3, 100, "articular") t 

yesno~out(expan~rec.inher, 3 ,100, "inherently stable ") ; 

sscanf(expan_reH.nuaber,"%i»,6choice); /*convert */ 

numb out (choice, 100, "number of pieces") ; 

yesno out(expan rec. potent, 3 , 100 , "potentially stable")? 

yesno~out (expan>ec . weightb , 3 , 100 , "weight bearing" ) ; 

/* open database for procedure suggestions */ 

status « btrv(B_OPEN,pos_blkl,&sugg_rec,ltbuf_len,"procsugg.dat",0) ; 
if (status !« 0) 

printf ("Error opening file . Status « %d", status); 
exit(0) ? 

} 

proc_sugg() ; 

/* close database */ 

status * btrv(B CLOSE, pos blkl , &sugg_rec , &buf_len,key_buf ,0) ; 
status - btrv(B^CL0SE,pos_blk2,&expan_rec,&buf_len,key_buf ,0) ; 

if (status 1« 0) 

printf ("Error closing file . Status - *d«, status) ; 

exit(O) ; 

) 

printf ("\n\n\n") ; 

info touch (1); /* turn on responses */ 
info_touch_res(data) ? /*wait to touch*/ 
return (0); } /* end of class_info */ 

/*******************«^ 

numb out (numb, cerfac, string) /* this routine writes the number*/ 
- /* to a file in a format PCPLUS will recognize */ 

int numb, cerfac; char string[]; 

{ 

int i; 

fprintf (tempf ,"\n(") ; ^ w 

fprintf ( tempf," %i", numb) ; /* print out the number*/ 

fprintf (tempf , " %i) " , cerfac) ; 
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return; } /* end of data_out */ 

/****************************************************************/ 

data_out (string , numb, cerf ac, string2 ) /* this routine writes out the string, 
without trailing */ 

/* to a file in a format PCPLUS will recognize */ 

char string[]; int cerf ac, numb; char string2[]; 



int ir 

/* determine how many trailing blanks there are */ 
while (string [numb-1] «» 32 | | string [ numb -1] « 0) 
numb-- ; 

f print f (tempf ,"\n(\"«) ; 
for (i~0; i < numb? i++) 

fprintf (tempf , M %c", string [i]) ; /* print out non-blank character*/ 
fprintf (tempf , \" %i) " , cerf ac) ; 
return ? 

} /* end of data_out */ 



/**************************************************/ 

yesno_out(string,numb,cerfac,string2) /* this routine writes out the yesno 
parameter, without trailing */ 

/* to a file in a format PCPLUS will recognize */ 

char string []? int cerf ac, numb; char string2[]; 



int i; 

/* determine how many trailing blanks there are */ 
while (string [numb-1] «» 32 ) 
numb — ; 

fprintf (tempf r "\n ( » ) ; 
for (i«0; i < numb; i++) 

fprintf (tempf , "%c M ,string[i] ) ; /* print out non-blank character*/ 
fprintf (tempf ," %i) " ,cerfac) ; 
return ; 

} /* end of yesno_out */ 

/**************************** ***^^ 

int halo_draw(name2) /* begin definition of halo draw, direct to ega mem */ 
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name2 [ ] ; 

{ unsigned add, node ? /*ega ports*/ char color; int plane, status; /* first se 
write node to 0*/ add « 0x3CE; mode ■ 0x3CF; outp(add,5); outp (mode , 0) ; 

/* now set data mask to full*/ outp (add, 0x8) ; outp (mode , OxFF) ; /* now loop fc 
each plane */ color « 1; for ( plane=0; plane<4; plane++) 

/* set the map mask for this plane */ 
add « 0x3C4; /* address for map mask */ 
mode » 0x3 C5; 
outp (add, 2) ; 
outp (mode, color) ; 

status«draw _p lane (name 2 , plane) ; /* draw the plane */ 

if (status!*0) break; /*dont continue if picture is not there */ 

color « color « 1? /* next color */ 

return ( status ) ? ) /* end of halo_draw */ 
/★A******************************************************/ 

int draw jplane(name2 , plane) /* routine to draw a plane of data */ char name 
int plane; { 

char far *pointer; char far *plength; static FILE *stream; unsigned char 
line[512]? /* to hold line of data */ int datalen,numread; register short i 
loop, count; 

count - 0; FP_SEG(plength) - OxAOOO; FP OFF(plength) « 80 * 350; /* end of pi 
*/ 

if (plane «* 0 ) { 

/* open picture file */ 

if ((stream « fopen (name2 , "rb") ) -« NULL) { 

printf( w \r file %.30s not f ound" , name2) ; 
return (1) ; 

numread - fread(line, 1, 512, stream) ; /* read the first block */ 
if ((line[0] I- 0x41) || (line[l] l« 0x48) )/* sure dr halo */ 

{initgraf (3,0,0) ; /* back to text mode */ 

fprintf (stderr, "error - not a dr halo file ") ; 

initgraf (3,0,0) y /* set back to 8 0 column with color */ 

info stop() ;/*stop it */ 

exitfl) ;) 

/* mode of 64 0 X 350 16 colors */ 

count » 12; /* need to skip past header file */ § 
) if (plane !« 0 ) numread « f read (line, 1 , 512 , stream) ; /* just read in fa 
line*/ 

/* set pointer to beginning of plane */ 

/* screen begins at a000 ; 0000 */ FP_SEG (pointer) « OxAOOO ; FP_OFF (pointer) 
0x0000; 
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while (numread — 512 ) /* for each block */ 

while {(count < 512) || (line[count] i« 128)) /* for each byte */ 

if (line [ count ]**0) break; /*end of block */ 
if (line [count]— 0x8 0) break; /*end of block */ 
datalen - line[count] &0x7F; 

if (line [count] & 0x80) /* duplication symbol */ 
{ 

count++ ; 

for (loop*datalen; loop > 0 ; loop — ) 
{ 

♦pointer « line [count]; 
pointer++; 
} /* end looping */ 
count++; /* done with this data */ 
} /* end duplication loop */ 
else /* no duplication */ 

{ 

count++ ; 

for (loop«datalen;loop > 0;loop — ) 

{ 

♦pointer « line[count]; 
pointers; 

count++; /*done with this data */ 
} /* end looping */ 
> /* end no duplications */ 
} /* end block */ 
numread ■ 0; 

if (pointer < plength) { /* test for full screen */ 

numread - fread(line, 1,512, stream) ; /* read the next line */ 
count » 0; 

} /* end } of the plane */ if (plane «« 3) f close (stream) ; return(O) ; } / 
of plane draw */ 

/*********************************** 

proc_sugg ( ) 

/* now get procedure suggestion information */ 

/* check for blanket suggestions at all levels */ { 

int count; 

char savbuf [30] ; 

buf_len * sizeof (sugg_rec) ; 

for (count*9; count>0 ; count—) /* check for blanket suggestions */ 

key num « 1; /* by classification - all 10 characters*/ 
.if (count— 9) /*fist time */ 

status « btrv (BJ3ETGE , pos_blkl , &sugg_rec , &buf _len , entry , key_nu 
if (status i« 0) print f("\n %i» , status) ; 

strcpy(key_buf, entry) ;/* copy into key buffer for later coir.par 
strcpy (savbuf , entry) ; 
}/*end of first time search */ 
else { 
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status « btrv(B_GETEQ,pos_blkl, Ssugg_rec, &buf_l«n,key_buf ,key_nur. 
while(status — 0 && (strcB P (key_buf , entry) «= 0}) /* while key not cha 

/•printf ("\n %.10s %.3 0s",sugg_rec.class,sugg_rec.proc) ;*/ 
data outfsugg rec.proc, 30, 75, "suggestion") ; 

status - btlvTB GETNX , pos_blkl , &sugg_rec , &buf _len , key_buf , key_nur. 

> /* end of key-not changed while */ ^ , , ^, 
while (savbuf [count]— 'X') count—; /*already checked */ 
savbuf [count] - 'X'; 
strcpy (key_buf , savbuf) ; 
strcpy (entry, savbuf) ; 

} /* end of count for */ ) /* end of proc_sugg */ 
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/* COPYRIGHT (C) SYNTHES 1987 ALL RIGHTS RESERVED */ #incluce 

<dos.h> /* this countains subroutines for the clinical gathering */ 
static struct pats { 

int age; 

char sex [8] ; 

int weight t 

int height ; 

char wht_unt [5] ; 

char ht_unt[5] ; 



int patient () /* gather patient stats*/ 
{ 

static char datal[80]«{ 1, 1, 21, 4 , 36 , 2 , 1, 55, 4 ,74 , 3 , 1, 6 , 4 , 21, 

4,1,36,4,55,5,16,31,20,45,6,6,16,10,31,7,6,31,10,45,8,6,45,10,62, 

9,10,16,13,31,10,10,31,13,45,11,10,45,13,62,12,13,16,16,31, 

13,13,31,16,45,14,13,45,16,62, 

15,16,16,20,31,16,16,45,20,62}; 

char data [115] ; 

int rs, rsl, coll, col2,rowl,row2; 

int rs2,rs3,rs4; . 

static struct pats pat_info « { 

35, "MALE", 60, 170, H K " , "cm "}; 



load_choice() ; 
draw_all(pat_info) ; 
strncpy (dataTdatal, 80) ; 

info^load^key (80, data) ; /* set up key table*/ 
/♦draw initial values */ 

info_touch(3) ; /*enable key table response */ 

while { (rs-info touch res (data)) < 21) /* get response*/ 

{ 

inf ojtouch(O) ; /*touch off*/ 

/* based on this response do some action */ 

if (rs > 0 && rs < 5) 

{ 

switch (rs) 
{ 

case l: /*age*/ 

draw_unit( ,l Yr , V ,t ') ; 
inf o~touch(3) ; /*touch on */ 
rsl=Info_touch res (data); /*get response*/ 
if (rsl >4 && rsl < 15) 

{ 

pat_info.age - (rsl-5) *100 ; 

rs2=inf o_touch_res (data) ; /*get response*/ 

if (rs2 >4 && rs2 < 15) 

{. 

pat_info.age (rs2-5)*10; 
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rs3«info_touchjres(data) ; /*get response*/ 
if (rs3 >4 && rs3 < 15) 
i 

pat. info. age +« rs3-5; 
} 

else pat_inf o . age*pat_inf o . age/ 10 ; 
) 

draw_all(pat_info) ; 
break; 

case 2: /*sex*/ 

draw_unit(»M","F") ; 
inf ojtouch ( 3 ) ; /*touch on */ 
rsl«inf o_touch_res (data) ; /* get response*/ 
if (rsl mm 15) strcpy (pat_info. sex, "MALE" ) ; 
if (rsl— 16) strcpy (pat_info. sex, "FEMALE" ) ? 
draw_all (pat_info) ; 

break ; 
case 3: /*weight*/ 

draw_unit ( "Lb" , "K" ) ; 
infojtouch(3) ; /*touch on */ 
rsl«inf o_touch res (data); /*get response*/ 
if (rsl >4 && rsl < 15) 
{ 

pat_info. weight « (rsl-5)*100; 
rs2«info_touch_res(data) ; /*get response*/ 
if (rs2 >4 6& rs2 < 15) 
{ 

pat_info. weight +« (rs2-5)*10; 
rs3«info_touch_res(data) ? /*get response*/ 
if (rs3 >4 && rs3 < 15) 

{ 

pat_info. weight +« rs3-5? 
rs4«info_touch_res (data) ?/*get response*/ 
if (rs4 -« 15) strcpy (pat_inf o.wht_unt , "lbs") ; 
if (rs4 mm 16) strcpy (pat_inf o.wht_unt, "K «) ; 
} 

else pat_info.weight*pat_inf o. weight/10 ? 

if (rs3 ** 15) strcpy (pat_info.wht_unt , " lbs" ) ? 

if (rs3 mm 16) strcpy (pat_info.wht_unt, "K ") ; 

} 

if (rs2 15) strcpy (pat_inf o.wht_unt , "lbs" ) ; 
if (rs2 mm 16) strcpy (pat_info.wht_unt,"K ") ? 
} 

draw_all(pat_info) ; 
break ; 



case 4: /*height*/ 

drav_unit(»'In",»Cro») ? 
info_to,uch(3) ; /*touch on */ 
rsl=inffo_touch_res(data) ; /*get response*/ 
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if (rsl >4 £& rsl < 15} 

{ 

pat_info. height « (rsl-5)*100? 
rs2*info_touch_res(data) ; /*get response*/ 
if (rs2 >4 && rs2 < 15) 

{ 

pa t_info. height +« (rs2-5)*10; 
rs3«info_touch_res(data) ? /*get response*/ 
if (rs3 >4 &6 rs3 < 15) 
{ 

pat_info. height +« rs3-5; 
rs4«info_touch_res(data) ;/*get response*/ 
if (rs4 ~ 16)~strcpy (pat info.ht_unt, "an "); 
if (rs4 mm is) strcpy(pat~info.ht unt,"in w ) ? 
} 

else pat_inf o . heigh t«pat_inf o . height/ 10 ; 
if (rs3 — 16) strcpy(pat_info.ht_unt,"cm •'); 
if (rs3 ~ 15) strcpy(pat_info.ht_unt,"in ") ; 
} 

if (rs2 »« 16) strcpy(pat info.ht_unt, "cm ») ; 
if (rs2 — 15) strcpy (pat~inf o.ht unt,"in •') ? 
} 

draw_all(pat_info) ; 
break ; 
) /* end switch */ 
} /* end if*/ 
info_touch(3) ? /*touch on */ 
) /* end while*/ 
/* do conversion if necessary */ 

if (strcmp(pat_info.wht_unt, ,! lbs") «« 0) pat info. weight /« 2.2; 

if (strcmp(pat_info.ht_unt,"in ") 0) pat_Tnfo. height *= 2.54; 

numb_out(pat_info.age,100, "age") ; 

data_out (pat_inf o . sex , 6 , 100 , " sex" ) ; 

numb_out(pat info. weight, 100, "weight") ? 

numb_out (paOnfo. height, 100, "height") ; 

if (rs 40f return(l); 
{ if (rs mm 4i) return(O); 

if ( r s mm 42) mayexit() ; 

} /* end of patient*/ 
/******************************** ***^ 

draw_unit(stl,st2) /* this function draws the unit choices on the screen * 

char stl[] ,st2[] ; { 

/* draw the values at this time */ 

grrtulc(172,258,20, 10,10) ;/*clear some space */ 
fcurloc(175,264) ; /*move cursor*/ 
fcursprt (0,stl, 0,3,0) ; 

grrtulc(420,258,20,10,10) ;/*clear some space */ 
fcurloc(425,264) ; /*move cursor*/ 
f cursprt ( 0 , st2 ,0,3,0) ; 
return ; ) 

/★♦a*******************,********** ^ 

lifeQ /* gather life st:yle info */ 
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{ 

static char datal[15]«{l,4,l,8,80,2,8,l,16,80,3,16,l,23,80) ; 
char data [7 0] ; 

static char lif eocc [40] ~{ 1 S'XO"}; 
int r s,rsl, col l,col2, rowl, row2; 

load_choice ( ) ; 
strncpy( data, data 1,15) ; 

info_load_key (15, data) ;/*set up key table*/ 
/* draw initial values */ 

info_touch(3) ; /*enable key table response */ 
while ( (rs*info_touch_res (data) ) < 40 ) /* get response*/ 
{ 

if (rs > 0 && rs < 4) 

{ 

/* based on this response do some action */ 
typedot(l) ; /* xor mode*/ 
coll « 3 00; 
col2 « 350; 

rowl « 14*(datal[rs*5-4])+32; 
row2 « rowl + 8; 

grbxf ill ( coll , rowl , col2 , row2 , 4 ) ; 
typedot ( 0 ) ; 

if (rs — 1) strcpy (lif eocc, "SEDENTARY" ) ; 

if (rs mm 2) strcpy ( lif eocc, "ACTIVE" ) ; 

if (rs -« 3) strcpy ( lif eocc r "VIGOROUS" ) ? 

} /* end if */ 
) /* end while*/ 
da ta_out( lif eocc, 9,100, "life-occ style") ; 
if (rs — 40) return(l) ; 
if (rs mm 41) return(O); 
if (rs mm 42) aayexit(); 
return; } /* end of life */ 

/****************************** ******************************************* / 



int soft() /* gather soft tissue info */ 

{ 

static char datal[30]«{l r 5,13,9,33,2,5,45,9 / 67 / 

5,17,7,23,25,6,17,25, 23,39,7,17,39,23,57,8,17,57,23,70} ; 
char data [70] ; 
static int open=*{0}? 
static int damage={0}? 

int rs , rsl , col 1 , col2 , rowl , row2 , tempi , temp2 ; 
load_choice () ; 

/* first set to proper levels */ 
temp2 m open; 
open * -1; 
tempi = damage; 

damage ■ -1; /* this, is how it is originally drawn */ 
set_sof t ( firdamage , tesfpl , &open , temp2 ) ; 
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strncpy (data,datal, 30) ; 

info_load_key(30,data) ;/*set up key table*/ 
/* draw initial values */ 

info_touch(3) ; /*enable key table response */ 
while ( (rs*info_touch_res (data) ) < 40) /* get response*/ 
{ 

if (rs > 0 &S rs < 9) 

{ 

switch (rs) 

{ 

case 1 : 
case 2 : 

/* based on this response do some action */ 
typedot(l) ; /* xor mode*/ 
coll « 8*datal[rs*5-3]-l; 
col2 « 8*datal[rs*5-l]-l; 
rowi « l4*datal[rs*5-4]-l; 
row2 ■ rowl + 10; 
grbxf ill (coll f rowl , col2 , row2 , 4 } ; 
typedot (0) ; 
/* damage or openness chosen */ 
rsl » info_touch_res(data) ; 

if (rsl >u& rsl < 9) 
{ 

if (rs»«l) set_soft(&damage,rsl-5, 6open,open) ; 

if (rs««2) set_sof t(&damaga, damage, fiopen, rsl - 5) ; 

} /* end if */ 

typedot(l); /* xor mode*/ 

coll « B*datal[rs*5-3]-l; 

col2 - e*datal[rs*5-l]-l; 

rowl - 14*datal[rs*5-4]-l; 

row2 « rowl + 10; 

grbxf ill ( coll , rowl , co!2 , row2 , 4 ) ; 

typedot (0) ; 

break; 
} /* end switch */ 
} /* end if */ 
} /* end while*/ 
numb_out (damage , 100 , "damage") ; 
numb_out (open, 100 , "open") ; 
if (rs 40) return(l); 
if (rs 41) return(O); 
if (rs « 42) mayexit(); 
return; } /* end of soft */ 
/************************* ********^ 

draw_all (pat_inf o) 

struct pats pat_info; 

{ 

char buff [10]; , 
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/* draw the values at this time */ 

grrtllc(60, 78,50,12, 10) ;/*clear some space */ 
f curloc (62 , 76) ; /*move cursor*/ 

spr int f (buff , % i » , pa t_inf o . weight ) ? 
fcursprt(0, buff ,0,3,0) ? 

grrtllc(85,78,30,12,10) ;/*clear some space */ 
f curloc (87, 76) ; /*move cursor*/ 
f cursprt ( 0 , pa t_inf o . wht_unt ,0,3,0) ; 



grrtllc(200,78,50,12,10) ;/*clear some space */ 
f curloc (202, 76) ; /*move cursor*/ 
sprint f (buf f , "%i H ,pat_inf o. age) ; 
f cursprt (0, buff ,0,3, 0) ; 



grrtllc(340,78,50,12,10) ;/*clear some space */ 
f curloc (342, 76 ) ; /*move cursor*/ 

sprintf (buff , H %i " , pat_inf o . height) ; 
f cursprt ( 0 , buf f , 0,3,0) ; 

grrtllc(365,78,50,12,10) ;/*clear some space */ 
f curloc (367, 76) ; /*move cursor*/ 
f cursprt ( 0 , pa t_inf o . ht_unt ,0,3,0) ; 



grrtllc(480,78,50,12,10) ;/*clear some space */ 
f curloc (482, 76) ; /*move cursor*/ 
f cursprt ( 0 , pat_inf o . sex ,0,3,0) ; 

return ; 



} /* end of draw_all */ 

/************ ******************^ int 

set_soft (damage, newd, open, newo)/* to change soft values and change screen 
♦damage, newd, *open, newo ? 
{ 

char name [40]; int i; 



strcpy (name, "WclinicalWincod" ) ; 
if (.newd ■=* 0 ) .str cat (name, "0") ; 
if (newd ™ 1 ) strcat (name, "l" ) ; 
if (newd «- 2 ) strcat (name, "2" ) ; 
if (newd «* 3 ) strcat (name, 11 3") ; 
strcat (name , 11 . cut" ) ; 

if ( *damage I =newd ) cut_halo_draw (name , 112 , 118 ) ; 
strcpy (name, "c: \\clinicalV\incoo") ; 
if (newo 0 ) strdat (name, "0") ; 
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if (newo 1 ) strcat(name, ,, l") ; 
if (newo «■= 2 ) strcatCname, 1 ^") ; 
if (newo ™ 3 ) strcat (name, "V) : 
strcat (name,". cut") ; 

if (*open!*newo ) cut_halo_draw (name ,416, 1X4 ) ; 
♦damage «newd; 
*open » newo; 
return (0) ; 

}/* end of set soft */ 
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/**********************************************************************/ /* 

COPYRIGHT (C) SYNTHES 1987 ALL RIGHTS RESERVED V /* Rooutines to a 

the user to pick the classification */ 

# include <string.h> 

/* btrieve definitions */ #define TRUE 1 #define FALSE 0 #define B_OPEK 0 *de 
B CLOSE 1 #define BJ5ETNX 6 Idefine B_GETEQ 5 #define B_GETGT 8 #define B_GE7 
#define EOF ERR 9 /* database parameters */ extern int op; /*operati 
code*/ extern char pos blkl[12B]; /*position block*/ extern char pos_blk2;i2 
extern int buf len; ~ /* length of above */ extern char key_buf[30]? /* k 
buffer */ extern int key_num; /* key number */ extern int status; / 

error status */ extern char entry[]; /* key copy */ struct { /* for annotat 

*/ . 

char class [10] ; 
char string [128]; 
char garb; 
} annotate; 



classify (entry) /*return the classification code chosen */ char entry []; 

1 static char datal[15]*{l,l, 1,20, 25,2,1,26,20, 57,3,1,58, 20,80} ; 
char data [100]; 

static char data3 [40 J«{ 1,5, 37, 8, 43, 11, 5, 50, 8, 57, 2, 9, 37, 11, 43, 12 ,8,51,11,5 

3,11,40,16,47,13,11,47,16,54,4,16,40,20,46,14,16,46,20,53} ; 

static char data4[15]-{l, 1,1,6,80,2,7,1,15,80,3,16,1,22,80} ; 

int rs,rsl,coll,col2,rovl,row2; 

int rs2,rs3,rs4; 

int notdone; 

int level; 

int s,len; /*status */ 

char name[40],namel[40],temp[10]; /* for file name passing */ 

/* initialize some settings */ 

level « l; 

notdone * TRUE; 

/*draw initial values */ 

entry[0]«'\0' ; 

str cpy ( name 1 , w CL M ) ; 

/* open database for classification annotation */ 

status « btrv(B_OPEU,posjDlk2,*annotate,&buf_len, "fracture. dat",0) ; 

if (status !« 0) printf < "error opening fracture file ") ; 

while (notdone) 

if (level < 6 ) /*display the picture if possible */ 

s trcpy ( name , » c : \\cl inical\\" ) ; 

strcat (name,namel) ; 

str cat (name, ".pic") ; 

/* display picture name*/ 

s*part_haloJdrav(name,4) ; 
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annot_it (entry, level) ; /* draw any annotation available */ 

switch (level) 
{ 

case 1: /*bone level*/ 

load_choice ( ) ; 
■trncpy (data , data3 , 40 ) ; 

info_load_key (40, data) ; /* set up key table*/ 
infojtouch(3) ; /*enable key table response */ 
while ( (rs*info_touch_res (data) )»0) ; /* short loop get re- 



sponse*/ 



infojtouch(O) ; 

if (rs««ll) strcpy(temp, M l») ; 
if (rs=«l) strcpy (temp, "l") ; 
if (rs«»12) strcpy(temp, M 2 H ) ? 
if (rs«-2 ) strcpy ( temp , " 2 » ) ; 
if (rs«13) strcpy(temp, M 3») ; 
i f ( rs«*3 ) str cpy ( temp , " 3 " ) ; 
if (rs*«14) str cpy (temp, "4 M ) ; 
i f ( r s=«4 ) str cpy ( temp , H 4 " ) ; 

if (rs!«40 && rs !«0) level++; /*if not return, increase level 
if (rs««41) 

( 

strcpy (temp , "XXXXXXXXXX" ) ; 

notdone~FALS£ ; 

} 

if (rs«-42) aayexit() ? 
break ; 

case 2: /* bone section level*/ 

load_choice() ? 
stmcpy (data , data4 , 15 ) ; 

info_load_key(15,data) ; /* set up key table*/ 
infojtouch(3) ? /*enable key table response */ 
while ( (rs*info_touch_res (data) )««0) ; /* short loop get re- 
info touch (0) ; 

if (rs-«l) strcpy (temp, "1") r 
if (rs=*2) strcpy (temp, "2") ; 
if (rs=*3 ) strcpy (temp , " 3 " ) ; 

if (rs!*40 && rs 1-0) level++; /*if not return, increase level 
if (rs~4 0) 

{ 

level — ; /*if return, decrease level*/ 

namel[strlen(namel)-l]« , \0 , ; /*null instead of last */ 
entry [strlen (entry) -1]«» \0 • ; /*null instead of last */ 
} 

if (rs~4l) 

{ 

strcpy (temp, "XXXXXXXXX" ) ; 

notdone«FALS£ ; 

) 

if (rs~4 2) mayexit(); 
break; , 
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case 3; /*ABC level*/ 
load_choice() ? 
strncpy (data, datal, 15) ? 

info_load_key(15,data) ; /* set up key table*/ 
info touch(3); /*enable key table response */ 
while ((rs«info_touch_res( data )) ~~0 ) ; /* short loop get re- 
sponse*/ 

info touch (0) ; 

if (rs— 1) strcpy (temp , H A" ) ; 
if (rs**2) strcpy (temp, H B") ; 
if (rs««3 ) strcpy (temp , "C" ) ; 
if (rs««40) 

level—; /*if return, decrease level*/ 

namel[strlen(namel)-l]« , \0 , ; /*null instead of last */ 
entry [strlen (entry) -1]«* \0» ; /*null instead of last */ 

if (rs!«40 && rs i«0) level++; /*if not return , increase level 
if (rs««41) 

{ 

strcpy (temp , "XXXXXXXX" ) ; 
notdone*FALSE ; 

if (rs««42) mayexit() ; 
break; 

case 4: /*before point*/ 
load_choice().; 
strncpy(data, datal, 15) ; 

info_load_key(15,data) ; /* set up key table*/ 
info touch(3); /*enable key table response */ 
while ((rs«info_touch_res (data) )— 0) ; /* short loop get re- 
sponse*/ 

infojtouch(O) ; 

if (rs«l) strcpy (temp, "1") ; 
if (rs— 2) strcpy (temp, "2") ; 
if (rs«3) strcpy (temp, "3") ; 
if (rs«40) 

level — ; /*if return, decrease level*/ 
namelCstrlentnameD-ll-'NO' ; /*null instead of last */ 
entry [ strlen ( entry )-l] -•NO 1 ; /*null instead of last */ 

if (rs!«40 && rs !«0) level++; /*if not return, increase level 
if (rs— 41) 

strcpy (temp , "XXXXXXX" ) ; 
notdone=FALSE ; 

if (re— 42) mayexitO; 
break; 

case 5: /*after point*/ 
load^choiceO ; 
strncpy fdata, datal, 15) ; 
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info_load_key(15,data) ; /* set up key table*/ 
info_touch(3) ; /*enable key table response */ 
while ( (rs*inf o_touch res (data ) )— o) ; /* short loop get re- 
sponse*/ " v 
info_touch(0) ; 

if (rs > 0 && rs < 4) st r cat (entry , " ; 
if (rs««l) strcpyftemp,"!") ; 
if (rs=*2) strcpy(temp,"2 ,f ) ; 
if (rs»«3 ) strcpy ( temp , « 3 M ) ; 
if (rs--40) 
( 

level—; /*if return, decrease level*/ 

namel[strlen(naael)-l]«•\o• ; /*null instead of last */ 
•ntry[strlen (entry) -1] \o • ; /*null instead of last */ 

if (rs!«40 t& rs i«0) level++; 
if (rs««41) 
< 

strcpy (temp , "XXXXX" ) ; 

notdone«FALSE; 

} 

if (rs««42) aayexitO; 
break; 

case 6: /*last chance to change */ 

remove_box ( namel [ 6 ] ) ; 
load_choice() ; 

info_touch(3) ; /*enable key table response */ 
while ( (rs«info_touch res (data) ) —0) ; /* short loop get re- 
sponse*/ ^ ' 

infojtouch(O) ; 
if (rs*«40) 
{ 

level — ; /*if return, decrease level*/ 

namel [strl en (namel) -1]- ■ \o' ; /*null instead of last */ 

entry [strlen (entry) -2 ]«'\0' ; /*null instead of last */ 

if (rs»=41) 
{ 

strcpy (temp, "XXXXX") ; 
notdone*FALSE ; 
level++; 
> 

if (rs=«42) mayexitf); 

if (entry [0] •3 I ) force now(&level, entry, namel ) ; /* force 

femur choice */ 

break ; 
} /*end switch */ 

if (rs < 40 &fi rs > 0 && level < 7) /*update them*/ 

strcat (entry, temp) ; 
strcat (namel, temp) ; 
} 

} /* end notdone, while */ 
/* now pad the result with blanks */ 
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len - strlen (entry) ; 
for (level«len? level < 10;level++) 
entry [ level ]« 1 1 ; 

/* close database */ 

status « btrv (B_CLOSE, pos_blkl , annotate , &buf_len, key_buf , 0 ) ; 
return (0) ; 

} /* end of classify */ 
/****« ******************************************** ******************** / 

f or ce_nowf level, entry , name 1) /* this routine forces a femur choice */ int *le 
char entry [ ] , namel [ ] ; 



{ 

♦level « 2; /* to bone section level */ 
strcpy (entry, "3") ; 
s t r cpy ( name 1 , " CL3 " ) ; 
return; 

} /* end of force_nov */ 

/******************************************************************** 

annot_it (entry, level) /* this routine annotates the pictures with description 
char entry[]; int level; 
{ 

static int rov[4][3] - {3,3,17,7,10,17,14,16,17,18,0,0); 

static int col[4][3] » {55,14,0,55,14,26,55,14,53,55,0,0}; 

static int colr[4] [2 ]«{ 13 , 15 , 10, 15, 14 , 0, 4 , 15 ) ;/*colors for text and boxes 

char string [13 9 i ],temp[4] ; 

int use , ccol , crow , count , i , dot , color ; 

switch(level) /* set codes for classification */ 
{ 

case 1: 

temp[0] -"I 1 ; 
templl]-^ 1 ; 
temp[2]« , 3 t ; 
temptSJ-U 1 ; 
dot«0 ; 
use * 0; 
break; 

case 2: 

temp[0]* , l» ; 
ta»p[l]«»2' ; 
teap^]-^ 1 ; 
tempts]* 1 ^' ; 
dot«0; 
use * 1; 
break ; 

case 3 : 

tempIO]- 1 ^' ; 
temp[l]«»-B' ; 
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temp^-'C ; 
temp[3]« , \0» ? 
dot-o; 
use ■ 2; 
break; 

case 4: 

tenp[0]« , l« ; 
temptl]-^' ; 
temp[2]« , 3» ; 
teap[3]- , \0 < ? 
dot-0; 
use - 2; 
break; 

case 5: 

tupEOl-'l 1 ; 
temptl]-^ 1 ; 
texnp[2]« , 3» ; 
temp^-'XO 1 ; 
dot«l; 
use - 2; 
break; 
} /* end switch */ 

/* find three names and write them out */ 
/* number 1 */ 
key_num « 0; 

buf_len ■ sizeof (annotate) ; 
count ■ 0; 

for (count-0; temp [count] i« 'XO 1 ;count++) 

if (dot— 1) sprintf (key buf ,"%s.%c", entry, temp [count] ) ; 
else sprintf ( key _buf , "%s%c", entry, temp [count ] ) ; 
for (i«strlen(key_buf) ;i<10;i++) key_buf[i]«' ' ; 

status « btrv (BJ5ETEQ , pos_blk2 , ^annotate , fcbuf_len , keyjsuf , key_num) ; 
strncpy( string, key_buf , 10) ; 
string [ 10 ]« , \0 t ? 

ccol « col [count] [use] * 8; /* convert to APA */ 

crow « row [count ] [use] * 14; 

/* box color depends upon classification */ 

if (temp [count]— »A f ) color « 1; /* green */ 

if (temp[count] — •B») color ■ 2; /* yellow */ 

if (temp[count3— 'C^) color « 3; /* red */ 

if (level > 3 && entry [2] — 'A 1 ) color - 1; /* green */ 

if (level > 3 && entry [2] — 'BM color - 2; /* yellow */ 

if (level > 3 && entry [2 ] — 1 C ) color - 3; /* red */ 

if (level < 3) color » 0; 

if (level < 3) grrtulc (ccol, crow-16, 190, 50, coir [color] [0]) ; 
else grrtulc (ccol, crow-16, 205, 70, coir [color] [0]) ; 
fhatsay (0, string, coir [color] [1] , ccol, crow) ; 
strncpy ( string , annotate . string , 26 ) ; 
string[26]«'\0 f ; 

ccol « col [count] [use] * 8; /* convert to APA */ 
crow « (row [ count] [use] +1) * 14? 

if (status— 0) flhatsay (0, string, colr[color] [1] ,ccol, crow) ; 
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strncpy (string, *annotate.string[26] ,26) ? 
string[26]« , \0 l ; 

ccol * col [count] [use] * 8; /* convert to APA */ 
crow — (row[count] [use]+2) * 14; 

if (status«0) fhatsay(0, string, coir [color] [1] , ccol, crow) ; 
strncpy ( string , fcannotate. string [52] , 26) ; 
string [26 ]«»\0» ; 

ccol ■ col [count] [use] * 8; /* convert to APA */ 
crow ■ (row[count] [use]+3) * 14; 

if (status"0) fhatsay(0, string, coir [col or] [1] , ccol, crow) ; 
} /* end for */ 
) /* end of annotate */ 

/******************************* *****^ re- 

movejsox (entry) /* this routine reaoves boxes to show last choice */ char ent 

T 

int i, count, ccol, crow; 

static int row[4][3] * {3, 3, 17, 7, 10, 17, 14, 16, 17, IB, 0,0} ; 
Static int COl[4][3] « {55,14,0,55,14,26,55,14,53,55,0,0}; 
static int colr[4] [2]«{13 , 15, 10,15, 14,0, 4 , 15) ;/*colors for text and boxes 
if (entry — ■1') i - 0; 
if (entry « f 2') i « 1; 
if (entry — '2') i - 2j 
for (count=0 ; count<3 ;count++) 
{ 

if (count !« i) 

{ 

ccol » col [count] [2] * 8 ; /* convert to APA */ 
crow « row [count] [2] * 14; 
grrtulc ( ccol , crow-16 , 205 ,70,0); 
) /* end if */ 
} /* end for V 
) /* end of remove_box */ 
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/* COPYRIGHT (C) SYNTHES 1987 ALL RIGHTS RESERVED */ #include 

<string.h> # include <malloc,h> # include <stdio.h> 

/* btrieve definitions */ #define B_OPEN 0 #define B_CLOS£ 1 #define B GETKX 
#define B_GETEQ 5 #define BJ3ETGE 9 #define B_HIGHEST 13 #define BJSETPR 7 
#define EOF_ERR 9 

/* database parameters */ extern int op; /*operation code*/ extern c 

pos_blkl[123] ; /*position block*/ extern int buf_len; /* length of above 
extern char key_buf[30]? /* key buffer */ extern int key_num? /* key nu 

*/ extern int status? /* error status */ extern int 

tosteo , t surg_int , tunr el iab , theal ing , tr ecumb ; /* tally of percents */ 
struct 
{ 

char system[20] ?/*system code */ 
char disease [20]; 

char healing[4J ; /* % chance of this complication */ 
char osteo[4]?/* %chance of this complication */ 
char recumb[4]? /* % chance of this complication */ 
char surg_int[4J? /* % chance of this complication */ 
char unreliab[4]? /* % chance of this complication */ 
char garb? 
) prexst[ll] ; 
struct 
{ 

char system [ 20 ] ?/*sy stem code */ 
char descr[40] ? 
char garb? 
} hti rec[8]; 



int pre_disease(systq)/* query database for disease questions */ char systq^j 
which system is to be queried */ { 

int i, rs, status, rsl? 
t char datal[50] ,data[100] ? 

int windno,windno2 ? 

char system [40] / string[4 0] , string2[4 0] ? 
int numb, lineup? 

int osteo, surg_int, unrel iab, heal ing ,recumb? /* the numerical values f 

the percents*/ 

/* find all the choices, up to 10 maximum */ 

windno*0 ? 

numb=0? 

.buf_len « sizeof (prexst) ? 

key_num ■ 0?/* system */ 

strcpy (system, systq) ?/* copy for use */ 

status « btrv(B_GETGE,pos_blkl, &prexst [numb] , &buf_len, system, key_nuir.; 
if (status !«0) fprintf (stderr, "error getting system from database 
%i", status) ? 

strcpy(key_buf, system ) ;/* copy into key buffer for use */ 
while (status==0T && strcmp (key_buf, system) && numb < 10) 
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{ 

numb++ ; 

status « btrv(B_GETNX,pos_blkl, fiprexst [numb] ,&buf_len, key_buf ,ke> 

/* create a window area */ 
status ■ 0; 

status* wind_make (windno , 375,140,600,numb+l) ; 
if (status !« 0 )fprintf(stderr, "window making error ") ; 
/* write them to the window */ 
strcpy ( string , M H ) ; 
strncat ( string , prexs t [ 0 ] . system ,20); 
string [24] *0; 

status*wind_line (windno , string ,0,0,13); 
if (status J« 0 )fprintf (stderr, "window line error ") ; 
load_choice{) ? 
for (i«0; i < numb ;i++) 
( 

stmcpy (string , prexst [i] .disease, 20) ; 
string [ 20 ]«0; 

status=wind_line (windno, string, i+l,i+l, 15) ; /* key table loaded aul 

cally*/ 

if (status !« 0 )fprintt( stderr, "window lines error (%i %i 
% i ) " , status , i , windno ) ; 
) 

inf o_touch(3) ; /*enable key table response */ 
/* loop on touch choices until finished */ 
while ( (rs*info touch_res (data) ) < numb+2 ) /* get response*/ 
{ 

info_touch(0) ; /* touch off */ 
if (rs 1-0) { 

/* accept a point */ 

strncpy( string ,prexst [rs-l ] .disease, 2 0) ; 
string [20] «0 ; 

status*wind_line(windno,string,rs,0,12) ;/*dont reload table, change 

color*/ 

if (status i« 0 )fprintf( stderr, "window lines error (%i 
%i) status, windno) ; 

/* find and write out its information */ 

sscanf (prexst [rs-l] .healing, "%4i", fchealing) ; 
s scanf (prexst [ rs-l ] . recumb , M %4 i " , firecumb ) ; 
sscanf (prexst [rs-l] .osteo, "%4i" , fcosteo) ; 
sscanf (prexst [ rs -1 ] . surg_int , " % 4 i " , & surg_int ) ; 
sscanf (prexst [rs-l] .unreliab, ,, %4i M , fiunreliab) ; 
windno2 * 1; 

status* wind_make (windno2 ,280,200,52 0,5) ? 

if (status 1* 0 ) f print f (stderr , "window open error (%i )",stati 
strcpy (string2, string) ? 
strcat ( string2 , " effects : " ) ; 
string2[29]=0; 

status*wind_line (windno2 , string2 , 0 , 0 , 12 ) ; 

lineup * 1; 

if (osteo > 0) { 

strcpy (s£ring2 , "osteoporosis : " ) ; 

strncat ( T string2, prexst [rs-l] .osteo, 4) ; 
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string2[18]= , % , ; 
string2[19]«0; 

status*wind_line (windno2 , string2 , lineup++ ,0,12) ; 
} 

if (surg int > 0) { 

strcpy (string2 , "Surgery concern " ) ; 
strncat (string2, prexst [rs-1] .surg int, 4) ; 
string2[20]« , % 1 ; 
string2[21]*G; 

status«wind_line (windno2 , string2 , lineup++ , o , 12 ) ; 
} 

if (unreliab > 0 ) { 

strcpy (string2 , "Unreliable H ) ; 

strncat (string2,prexst[rs-l] .unreliab, 4) ; 

string2[15]« , %« ; 

string2[16]«0; 

status*wind line (windno2 , string2 , lineup++ ,0,12); 
} 

if (recumb > 0 ) { 

strcpy (string2 , "Recumbancy concern" ) ; 
strncat ( str ing2 , prexst [ rs-1 ] . recumb , 4 ) ; 
string2[15]« , %* ; 
string2[16]*0; 

status«wind_line (windno2 , string2 , lineup++ , 0 , 12 ) ; 
} 

if (healing > 0 ){ 

strcpy (string2, "Healing concern ") ; 
strncat (string2, prexst [rs-l] .healing, 4) ; 
string2[15]«'%' ; 
string2[16]«0; 

status«wind_line (windno2 , string2 , lineup++ ,0,12); 

if (status !- 0 ) f pr int f(stderr," window lines error (%i) ", status) 
/* wait for approval, then write it to two file */ 
info touch(3); /*touch on*/ 
rsl«Tnf o_touch_res (data) ; 
info_touch(0) ; 
status*wind_close(windno2) ; 

if (status 1« 0 ) f print f(stderr," window cloase error (%i )", statu 
/* one for pcplus with just the relevant complications */ 
if (rsl*«40) vind_line(windno, string ,rs, 0,15) ;/*color it undone */ 
else { 

thealing « tally (thealing, healing) ; 
trecumb * tally (trecumb, recumb) ; 
tosteo « tally (tosteo,osteo) ; 
tunreliab * tally (tunreliab, unreliab) ; 
tsurg_int « tally (tsurg_int, surg_int) ; 

/* fix * this - add saving of diseases chosen */ 
} /*end zero if*/ 
info_touch(3) ; /*touch on */ 
) /*~end loop */ 
/* put back window %/ 
status « wind_close(windno) ; 
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if (status i« 0 )fprintf (stderr, "window closing error (%i 
%i) ", status, windno) ; 
return ( 0 ) ; 

} /*end of pre_disease */ 
/** ************************************************** ************** / 

int tally (previous, new) /* this function tallys CF's , as does PC PLUS */ 
/* the return value is the tallied CF */ int previous, new; 



int tal; 

if (new ~ 0) return (previous) ; 
if (previous >■ 0 && new >« 0) 
{ 

tal » previous + (( new * (loo - previous)) +50)/l00.; 
} 

else { 

/* this should not occur */ 

fprintf (stderr, "problem calculating CF %i %i", previous, new) ; 

exit(l) ; 

) 

return (tal) ; 
} 

/* end of tally */ 

/★★A*******************************************************************/ 



int get_applic (concern)/* query database by concern */ int concern; /* which 
concern is to be queried */ { 

int i , rs, status, rsl; 

char datal[50] ,data[100] ; 

int windno; 

char system [40], string [40]; 
int numb, lineup; 

int healing, recumb,osteo,surg_int,unreliab; /* the numerical values f 
the percents*/ 

/* open database for preexisting illnesses*/ 

status - btrv(B_OP£N,pos_blkl,&prexst[0] ,&buf_len, "preexist. dat H ,0) ? 
if (statusl«0) printf ("database problem %i, status") ; 

/* find all those with this concern, up to 10 maximum */ 
windno=0 ; 
numb=0; 

bufJLen « sizeof (prexst) ; 
key_num « 0;/* system */ 

status « btrv(B_HIGHEST,pos_blkl, fcprexst [numb] , &buf_l en, system, key_nu 
if (status l«0) fprintf (stderr, "error getting system from database 
%i", status) ; 

strcpy(key_buf , system) ?/* copy into key buffer for use */ 
while (status*=<7 && numb < 10) 
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{ 

/* translate to numbers */ 

sscanf (prexst [numb] .healing, "%4i",&healing) ? 

sscanf (prexst [numb] .recumb, "%4i" , firecumb) ; 

sscanf (prexst [numb] .osteo, "%4i" , fcosteo) ; 

sscanf (prexst [numb] .surg_int, "%4i ,! , fisurg_int) ; 

sscanf (prexst [numb] .unreliab,"%4i M r *unreliab) ; 

/* only keep it if it involves the present concern */ 

if (concern «« 1 6& surg_int > 0) numb++; 

if (concern «* 2 && healing > 0) numb++; 

if (concern « 3 && recumb > 0) numb++; 

if (concern «« 4 a unreliab > 0) numb++; 

if (concern «* 5 && osteo > 0) numb++; 

status ■ btrv(B_GETPR,pos_blkl,&prexst[numb] , *buf_len,key_buf ,key_n 
} /* end while */ 

/* create a window area */ 
status ■ 0; 

status* wind_make(windno,75,10,300,numb+l) ; 
if (status 1«"0 ) { 

fprintf (stderr, "window making error get_,windn;%i numb %i", windno ,nu:r. 

may exit ( ) ; 

) 

/* write them to the window */ 
status~wind_line (windno, " Example problems : " , 0 , 0 , 13 ) ; 
if (status !« 0 ) f print f(stderr f "window line error ") ; 
load_choice() ; 
for (i«0; i < numb ;i++) 
{ 

strncpy ( string , prexst [ i ] • di sease ,20); 
string [2 0]«0; 

status«wind_line (windno, string, i+1,0, 15) ; /* no keys*/ 
if (status 1» 0 )fprintf (stderr," window lines error (%i %i 
%i) status, i, windno) ; 
} 

return ( o ) ; 

} /*end of get_applic */ 



int getjdescr (system)/* query database by system for hti */ char system;:; /* 
which system is to be queried */ { 

int i,rs,status,rsl; 

char datal[50] ,data[100] ; 

int windno; 

char string [41], sy ssav [20]; • • 
int numb, lineup? 

/* open database for hti*/ 

status « btrv(B_OPEN,posjDlkl,&hti_rec[0] , &buf_len, "htrauma. dat" , 0) ; 
if (status!=0) print^f ("database problem %i, status"); 
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/* find all those with this system, up to 7 maximum */ 
windno*0 ; 
numb«0 ; 

buf len « sizeoffhti rec) ; 

strcpy(key_buf ," ") ; /* clear some */ 

strncpy ( key_buf , system , 4 ) ; 
key num « 0;/* system */ 

status - btrv(B GETGE , pos blkl, &hti_rec[numb] ,fibuf_len,key_buf , key_nu 
if (status !«0)~fprintf (stderr, "error getting system from database 
%i» , status)? 

strncpy (syssav,key_buf , 20) ; 

while (status«0 && numb < 8 && (strncap(syssav,key_bu£ # 20)~0) ) 
{ 

numb++ ; 

status « . 
btrv(B GETNX,pos blkl,&hti_rec[numb] l tbuf_len r key_buf # key_num) ; 
> /* end while */ 
numb — ; /* disregard the last one */ 
/* create a window area */ 
status » 0; 

status* wind_make (windno, 75, 10, 400, numb+1) ; 

lf C fprintf (stderr! "window making error get_,windn: %i numb %i» , windno, nuir. 
mayexit ( ) ; 

/* write them to the window */ 
status«wind line (windno , " Index desciptions: " , 0, 0, 13) ; 
if (status T« 0 ) f print f(stderr F "window line error ") ; 
load_choice() ? 
for (i-0; i < numb ?i++) 

strncpy ( string , hti_rec [ i ] . descr ,40); 
string [40] «0? 

status-wind line (windno, string, i+1, 0, 15) ; /* no keys*/ 
if (status T- 0 )fprintf (stderr," window lines error (%i %i 
%i ) " , status , i , windno ) ; 
} 

return ( 0 ) ; 

} /*end of get_descr */ 
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/* COPYRIGHT (C) SYNTHES 1987 ALL RIGHTS RESERVED */ ^include 

<dos.h> /* this countains subroutines for the system disease info gathering 
/* Bob Friedman July 1987 */ 

/* btrieve definitions */ idefine B_OPEN 0 Idefine B_CLOSE 1 Idefine BJ3ETNX 
Idefine BJ3ETEQ 5 #define B GETGE 9 #define EOF ERR 9 /* database parameters 
extern int op; /*operation code*/ extern char posJblkl[128] ; /*posi 

block*/ extern char pos blk2[128]; extern int buf len; /* length of above 
extern char key_buf [30]T /* key buffer */ extern Int key_num; /* key nu 

*/ extern int status; /* error status */ extern char entry [3 0]; /* key 

*/ extern struct 

char system[20] ?/*system code */ 
char disease[20]; 

char healing[4]; /* % chance of this complication */ 
char osteo[4];/* %chance of this complication */ 
char recumb[4]; /* % chance of this complication */ 
char surg int [4]; /* % chance of this complication */ 
char unreTiab[4]; /* % chance of this complication */ 
char garb; 
} prexst[ll]; 

int tosteo,tsurg int,tunreliab, thealing, trecumb; /* tally of percents */. 



/******************************************************************/ int con- 
cern () /* gather concern statistics */ 

{ 

static char datal[30]«{ 

1,2,2,12,26,2,3,25,12,48,3,4,48,12,72,4,12,3,21,22, 

5,12,25,21,46,6,13,49,22,70} ; 

static char data2[30]-{ 

1,11,4,16,31,2,12,32,16,57,3,12,59,16,80,4,15,6,19,31, 

5,16,34,19,57,6,16,57,19,78}; 
char data[120] ,name[40] ; 

int rs, status, r si, value; t , t 

\ thealing « trecumb « tosteo « tsurg_int « tunreliab « 0; /*initially*/ 
load_choice() ; 
/♦preexisting systemic */ 

/*get from concern choices */ 

load_choice() ; 

strncpy (data,datal, 30) ; 

info_load_key(30,data) ?/*set up key table*/ 
info touch (3); /*touch on */ 

whi le((rs=info_tou chores (dat a) ) < 7) /* get response*/ 
{ 

info_touch(0) ; 

if (rs « 6) { /* specific disease entry */ 
part_ha 1 o_draw ( •» c : \\cl inical \\body . pic " , 4 ) ; 
specif () ; 

} 

if (rs >0 && rs < 6) { 

part halo draw("c: \\clinical\\enter.pic" ,4) ; /*has mild , moderate . 
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get_applic(rs) ; /* find applicable diseases */ 

/* "~ get response • 1 to 6 */ 

load_choice() ; 

strncpy (data, data2, 30) ; 

info_load_key (30, data) ; 

info touch (3); /* touch on */ 

while ((rsl«info_touchjres (data)) <!);/* short loop get respons 
info touch (0) ; 
value- (rs-l)*20.? 
switch (rs) ( 
/* which concern */ 
case l: /*surgery */ 

tsurg_int * tally (tsurg_int, value ) ; 
break ; 
case 2: /* healing */ 

thealing - tally (thealing, value ) ; 
break; 
case 3: /*recumbancy */ 

trecuab « tally (trecumb, value ) ; 
break ; 

case 4: /*patient reliability */ 

tunreliab « tally (tunreliab, value) ; 
break? 

case 5: /* bone quality */ 
tosteo - tally (tosteo, value) ; 
break; 
> /* end switch */ 
) /* end if */ 

status « wind_close(0) ; /* must close window used in get_applic */ 

if (status 1-0) printf ("error closing window «) ; 

part halo_draw("c:\\clinical\\concern.pic",4) ; 

load"choice() ; 

strncpy (data, datal, 3 0) ; 

info loadjcey(30,data> ;/*set up key table*/ 
info~touch(3) ; /* touch on */ 
} /* end while*/ 
/* output results */ 

yesno_out ( M yes M , 3 , thealing , "healing" ) ; 

yesno_out ( "yes" , 3 , tosteo , "osteoporotic" ) ; 

yesno_out ( "yes" , 3 , trecumb, "recumbancy" ) ; 

y esno_out( "yes", 3, tsurg_int, "surgery intolerability") ; 

yesno_out ("yes", 3, tunreliab, "unreliable patient ") ; 

if (rs ■« 40) return (1) ; 

if (rs -~ 41) return(O); 

if (rs — 42) mayexit(); 

return ; 

} /* end of body */ 

/************************************************************** int s P e: 

/* gather body stats */ 

{ 

static char data2[55]={ 

8, 10, 39, 13, 57, 9, .13, 39, 16, 57, 10, 16, 39, 19, 57, 11, 19, 39, 24, 57, 

12,1,57,3,80,13/3,57,7,80,14,7,57,10,80,15,10,57,13,80, 
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16,13,57,16,80,17,16,57,19,80,18,19,57,23,80} ; 
static char data3[2 0]«{ 

4,2,2,5,19,5,5,2,8,19,6,8,2,11,19,7,11,2,16,19}; 
char data [ 120 ] , name [40]; 
int rs f status; 
static int ulr « {0}; 
static int ulc « {136}; 
static int lrr » {295}; 
static int lrc » {324}; 

Static char files [11] [ 12] «{ "CARD" , "DIGEST" , "ENDO" , "INTEG" , "LYKPH" , 

"MUSC" , "NERVOUS" , "REPROD" , "RESPIRA" , "SKEL" , "URINARY" } ; 
load_choice() ; 
/♦preexisting systemic */ 
setegapr(l,61) ; /* change color to red */ 
/* open database for preexisting illnesses*/ 

status - btrv(B_OPEN,pos_blkl,prexst,*buf len, "preexist.dat" , 0) ; 
if (statusi«0) printf ("database problem %T, status"); 

/*get from system choices */ 

load_choice() ; 

strncpy (data, data2 , 55} ; 

info_load_key(55,data) ;/*set up key table*/ 
infojtouch(3) ; /*touch on */ 

while ( (rs~inf ojtouch_res (data) ) < 19) /* get response*/ 
{ 

if (rs > 7) { 

infojtouch(O) ; /* touch off */ 

clipsize(ulc,ulr,lrc,lrr) ; 

strcpy(name,"c:\\clinical\\") ; 

strcat (name, files [rs-8] ) ; 

strcat (name, 11 .pic") ; 

part_halo_draw(name,l) ; 

status * pre_disease(fifiles[rs-8] [0] ) ; 

load_choice (7 ; 

strncpy (data , data2 , 55 ) ? 

info_load_key(55, data) ;/*set up key table*/ 

info touch (3); /*touch on */ 

} 

} /* end while*/ 
/* close database */ 

status ■ btrv(Bj2LOSE,pos_blkl,prexst,&buf_len,key_buf , 0) ; 
if (status l« 0) 

printf ("Error closing file . Status « %d", status); 
exit(0) ; 

} 

if (rs «= 40) return(l); 
if (rs ■« 41) return(O); 
if (rs «« 42) mayexit(}; 
return ; 

} /* end of specif */ 
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/* COPYRIGHT (C) SYNTHES 1987 ALL RIGHTS RESERVED */ * include 

<dos.h> #include <search.h> /* btrieve definitions */ #define B_OPEN 0 #defin 
B CLOSE 1 #define B GETNX 6 #define BJSETEQ 5 #define B_GETGE 9 Udefine EO?_I 
/* database parameters */ extern int op; /*operation code*/ extern c 

pos blkl[128]; /*position block*/ extern char pos_blk2 [128] ; extern int 
buf~len; /* length of above */ extern char key_buf[30]; /* key buffer */ 
extern int key_num; /* key number */ extern int status; /* error st 

*/ extern char entry [30]; /* key copy */ static struct 

int extr?/*values of hti by system */ 
int nerv; 
int resp; 
* int abdm; 
int card; 
int skin; 
int compr- 
int iss; 

} hti_det«{0,0,0, 0,0,0,0,0} ? 

/★A****************************************************************/ int hti ( 

gather health trauma index */ 
{ 

static char datal[35]«{ 

1,2,9,14,23,2,9,2,22,12,3,10,24,21,37,4,3,36,15,47, 
5,10,47,21,59,6,2,58,14,69,7,10,71,20,78); 

static char data2[30]«{ 

1,11,4,16,31,2,12,32,16,57,3,12,59,16,80,4,15,6,19,31, 

5 , 16 , 3 4 , 19 , 57 , 6 , 16 , 57 , 19 , 7 8 } ? 
static char system [ 7 ] [ 5 ]« { "EXTR" , "NERV" , -RESP" , "ABDO" , "CARD" , 
"SKIN","COMP") ; 
char data[120] ,name[40] ; 
int rs, status ,rsl, value; 

/*get from system choices */ 
load_ehoice() ; 
stmcpy( data, data 1,35) ; 

info load key(35,data) ;/*set up key table*/ 
info touch(3); /*touch on */ 

while ( (rs~info_touch_res (data) ) < 8) /* get response*/ 
{ 

info touch (0) ; 

if (rs >0 £& rs < 8) { 

part_halo_draw("c:\\clinical\\enter.pic ,, ,4) ; /*has mild, moderate. 

get_descr(system[rs-l]) r /* find descriptions of symptoms */ 

/* get response - 1 to 6 */ 

load_choice () ; 

strncpy(data,data2,30) ; 

inf o_load key (3 0, data ) ; 

info touch (3); /* touch on */ 

while ( (rsl«info_touch_res (data) ) < 1 ) ; /* short loop get respcr.s 
inf o jtouch ( 0 ) ; "~ 
value * rsl-,1; 
switch (rs) f 
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/* which system */ 

case X: /*extremities */ 
hti_det.extr « value; 
break; 
case 2: /* nervous */ 
hti_det.nerv - value? 
break; 

case 3: /* respiratory */ 

hti_det.resp ■ value; 

break; 
case 4: /* abdominal */ 

hti_det.abdm ■ value; 

break; 

case 5: /* cardiovascular */ 
hti_det.card - value; 
break; 

case 6: /* skin and subcutaneous */ 
hti_det.skin « value; 
break; 

case 7; /* complications */ 
hti_det.comp « value; 
break; 
} /* end switch */ 
} /* end if */ 

status - wind_close(0) ; /* must close window used in get_descr */ 
if (status t-0) printf ("error closing window ") ; 
part Jialo_drav ( «c : \\clinical\\hti . pic" , 4 ) ; 
load_choice() ; 
strncpy( data, data 1,35) ; 

info_load key (35, data) ;/*set up key table*/ 
info_touch(3) ; /* touch on */ 
} /* end while*/ 

find_iss(); /* determine the injury severity score */ 
/* output results */ 

numb_out(hti_det.extr, 100, "extremity "); 

numb out (hti_det.nerv, 100, "nervous ") ; 

numb~out(hti_det.resp, 100, "respiratory ") ; 

numb out(hti_det.abdm, 100, "abdominal ") ; 

numb~out(hti det .card, 100 , "cardiovascular ") ; 

numb out (hti~det. skin ,100, "skin ") ; 

numb~out (hti det .comp , 100 , "complications " ) ; 

numb>ut(hti~det.iss,100,"injury severity score"); 
if ( rs « 40) return(l) ; 
if (rs « 41) return(O); 
if (rs — 42) mayexitQ; 
return ; 

\ /* end of body */ ^ . . . 

V************************************************************ lnt fina - i 

/* find the injury severity score defined as the sum */ /* of the three hxghe 

hti values */ 

{ 

int i, sort [7] ; 

/* copy numbers */ 7 
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for (i«0;i < 7; i++) { 

6ort[i] « *(&hti_det.extr + i) ; 

} 

/* sort the array */ 

ssort(sort,7) ? 

/* now sum the squares */ 

hti_det.iss - sort[0]*sort[0] + sort[l]*sort[l] + sort [2 ] *sort [2] ? 
return; 

}/* end of find iss*/ 
/**********************************************************************/ int 

ssort( list, numb) /* does numerical sorting */ int list[],numb; { 
int i,j; 
int temp; 

for (i«l?i<nunb;i«i+l) 
{ 

temp«list[i] ; 
j - i-l; 

while ( (j >«0) fi& (temp > list[j])) 
list[j+l] - list[j]; 

j-j-i; 
} 

list[j+l] « temp; 

} } /* end of ssort */ 
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/* COPYRIGHT (C) SYNTHES 1987 ALL RIGHTS RESERVED */ finclude 

<stdio.h> I include <string.h> #include <ctype.h> 

/****** program to determine final summary for aooa ********/ /* Bob Friedr.a 
June 1987 */ 

/* btrieve definitions */ #define B OPEN 0 #define B_CLOSE 1 #define B GETKX 
#dexineTGETPR 7 #£f±ni B_GETEQ S^define B.GETGE 9 #define EOF.ERR 9 #defi 
B_UPDATE 3 #def ine B_HIGHEST 13 

static int op; /*operation code*/ static char pos_blkl[128] ; /*P<=si 

S5£$/ stalic int buf_len7 /* length of above */ "S^.SfiS'dSSSJ 
/*v.v buffer */ static int key num? /* key number */ static int certain 

£ certSng factor read V Eatic int status; /* status value returned 

static struct 

char high[30];/*treatment of highest level */ 
char med[30]; /* treatment of medium level */ 
char lov[30]; /* treatment of low level */ 
char lowest[30]; /* treatment of lowest level */ 
short int cerfac; /* holds numbers for ordering */ 
char file[5]; /* file name for implant picture */ 
char start [5]; /* start of movie */ 
char stop[ 5]; /* end of movie */ 
char empty [1]; /* empty space */ 
}' treat_rec; 

main() { 

int status, numb? 
char i,data[10]; 

FILE *tempf ; /* temporary file for data passing */ 

if ( ( tempf « fopen (" temper .txt«,"r«)) —HULL) { 

fprintf (stderr, M %s couldnt open file 'temper. txt •••) ; 
\ exit(l); 

/* open database for procedure classification */ 

status « btrv (B_OPEN , pos_blkl , &treat_rec , &buf _len , "procedur . tap" , 0 ) ; 
if (status 0) 

printf ("Error opening file . Status - %d«, status); 
exit(0) ; 

info*stop(); /*clear problems info window*/ 
info"start() ;/*initialize info window*/ 
easyTnit(); /*graphics initialization */ 
numb— 1 » 

status=fontld(numb # "c:\\clinical\\ROMAN3I.esi M ) ? 

if (status 1-0) printf("error in font setting %i %i» , status , numb} ? 
updatettem^f) /* update the database to hold CF values obtained*/ 
status "btrv (BicLOSE , pos_blkl , &treat_rec, &buf_len, key.buf , 0 ) ; 
if (status !- 0) 
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printf ("Error closing file « Status « %d M , status); 
exit(O) ; 

befaft(); /*results and the before and after picture */ 
piecht() ; /* display an appropriate pie chart */ 
fcloseall(); /* close all files */ 
printf ( M \n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n") ; 

printf ("\rhit return to continue: M ); 
while (kbhit() «« 0) ;/*wait*/ 
initgraf (3,0,0) ; 
inf o_stop ( ) ; 
exit(); 

} /* end of main program for inital data */ 
/**********************************"^ mt up- 

date (tempf) 

FILE *tempf; { 

static char scopy[30]; 

getone (tempf, key buf , ^certain) ; /* get a program output */ 
while (certain I- -500) /* do this for each data item */ 

{ 

/* now find this in the procedure classification database */ 

buf_len - sizeof (treat_rec) ; 

key num - 0;/* first level code */ 

status * btrv (B GETEQ , pos_blkl , 6treat_rec , &buf _len , key_buf , key_num) ; 
while (status !«0) /* look to lower levels */ 
{ 

key num++; 

"if (key_num > 3) 

printf ("Error classification procedure mismatch. Status 

%d", status); 

exit (0) ; 

} 

status - 

btrv(B GETEQ, pos blkl,*treat rec, fcbuf_len, keyjbuf ,key_num) ; 
T 

/* now update with certainty factor */ 

treat rec.cerfac +- certain* (key_num+4) ; /*weighting */ 

status - btrv(B UPDATE , pos_blkl , &treat_rec , fcbuf _len , key_buf , key_nuir. ) ; 

if (status !«0 I 

printf ("Error in updating certainties. Status %d'\ status) ; 
exit (0) ; 

/* now update any others on the same level */ 

strcpy(scopy,key_buf) ; /* get a copy of the key buffer */ 

while (strcmp(key_buf,scopy)«*0 && status — 0) /* the same string */ 

{ 

/* see if there exists a next one */ 
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status « btrv(B_GETNX,pos_blkl,&treat_rec,&buf_len,key_buf ,key_n 
if (strcmp(key_buf ,scopy)««0 &&. status «« 0) /* no error and the 
same string */ " 

treat_rec.cerfac +« certain* (key_num+l) ; /*veighting */ 
status « 

btrv(B UPDATE , pos_blkl , fctreat_rec, &buf len,key_buf ,key_num) ; 
if (status !-0 ) 

printf ( "Error in updating certainties. Status %d" , status) ; 
exit (0) ; 

} /* end status if */ 
} /* end compare if */ 
} /* end compare while */ 
getone (tempf ,key buf , fccertain) ; 
} /*end while*/ 

return (0); } /* end of update */ 
/A***************************************************************/ 

int getone (tempf , string ,numb) /* read in characters 1 at a time */ 
/* to place together a parameter and certainty */ 

FILE *tempf; char string[]? short int *numb; 



char check; 

static test£2]«{ • , , t \ ,,, )J 
int count , found; 
found ■ 0; 

*numb « -500; /* initialize this */ 

/* fill with blanks */ 
for (count - 0; count< 30 ;count++) 
string [ count] '; 

/* skip any initial parentesees , spaces or quotes */ 
while ( isalnum(check«fgetc (tempf) ) — 0) 

if (check «»'\ M >) found - 1;/* note if quote appears */ 
/* check for end of file */ 
if (feof (tempf) i- 0) return; 

) 

/* read in until test character occurs */ 
for (count « 0; check i« test [found] ; count++) 
{ 

if (count > 255) 

printf ("error with rd file •») ; 
.exit(l) ; 
} 

string [count] ■ check; 
check - fgetc (tempf) ; 

} 

/* read in a number */ 
fscanf (tempf ,"%i",nun£>) ; 
return (0); 7 
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} /* end getone */ 



/*************************************************************** V 

data out (string, numb) /* this routine writes out the string, without trailin 
" /* to a file in a format PCPLUS will recognize */ 

char string[]; int numb; 



int i; 

/* determine how many trailing blanks there are */ 
while ( string [ numb- 1] — 32 ) 
numb—; 

for (i«0; i < numb; i++) 

printf ("%c", string [i]) ; /* print out non-blank character*/ 
return (0); ) /* end of data_out */ 

/******************************************* int 

piechtO /* display an appropriate pie chart */ { 
int i,x,y,r,s, e,c,off ,args; 

static int pnts[10]-{10,33,12,25,40,9,17,54,25,1010} ; 
initgraf (16, 2,4) ; 

/* display the chart showing femoral fracture complications */ 

x«320; /*center of chart */ 

y-175; 

r - 150; /*radius */ 

c ■ 12; /*border color*/ 

off « 10; 

e « 512; /'explode slice 10 */ 
s « 0; 

args*10; /*10 pieces of data */ 
fhatsay (1, "Complications" , 3 , 50, 30) r 
fhatsay (0, "while in the hospital", 3, 5, 45) ; 
fhatsay (0, "of femoral fracture patients" ,3,5,55) ; 
fhatsay(0, "treated with AO techniques ", 3, 5, 65 ) ; 
fhatsay (0, "Switzerland and Germany 11 , 3 , 5,75) ? 
fhatsay (0, "1973-1976 n»1275" , 3 , 5 , 85) ; 
i«hsset(0,0," Shock", 10, 0, 1) ; 

if (ii«0) printf ("error in graph settingl %i",i); 

i«hsset(l,0," Respiratory ",10,0, 11 ) ? 

if (ii-0) printf ("error in graph setting2 %i",i); 

i«hsset(2,0," Pulmonary embolism" , 10, 0 r 11) ; 

if (il«0) printf ("error in graph setting3 %i",i); 

i«hsset(3,0," Fat embolism", 10,0, 11) ; 

if (i!»0) printf ("error in graph setting4 %i",i); 

i=hsset(4,0," Cardio-vascular",10,0,ll) ; 

if (i!«0) printf ("error in graph settings %i",i)? 

i«hsse t (5,0," Thrombos is ",1 0 , 0 , 11 ) ; 

if (il«0) printf ("error in graph settings %i",i); 

i«hsset (6,0, "CNS" , 10*, 0,11); 
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if (ii*0) printf ("error in graph setting7 %i",i); 
i*hsset (7 # 0 r "Others", 10,0,11) ? 

if (il«0) printf ("error in graph settings %i N ,i); 
i*=hsset (8 ( 0 , "Paresis" , 10 , 0 , 11) ; 

if (iS~0) printf ("error in graph setting9 *i",i)? 

i«hsset(9,0,"No Complications" , 10 , 0, 11) ; 

if (i!-0) printf ("error in graph settingio %i",i); 

i«hspie(x,y,r,s,e,c,off ,args,pnts) ; 

if (i!«0) printf ("error in graph drawingll %i",i); 

return (0) ; 

} /*end piecht*/ 
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/* ' COPYRIGHT (C) SYNTHES 1987 ALL RIGHTS RESERVED */ lincluue 

<stdio.h> # include <stdlib.h> 

movie (start, stop) /* this is to display movie results */ int start, st 

{ 

int row, col, color, kern, mode, assign; int x,i,j; short int count, frame; char on 
char coir; int choice, pause; short int zero, same; char data [10]; 

/* some intialization */ 

frame * start; /*the beginning */ 

zero * 0; /* for no information */ 

same ■ OxFFFF; /* for same frame */ 

pause « 0; /* not paused */ 

info init_video ( ) ; /*start player*/ 

info~enable_audio() ; /*enable audio channels */ 

info~display(l) ; /*show the frame number */ /* draw some graphics and ena 
key areas */ 

/* viewing area */ 

initgraf (14,2,0) ; /* mode of 640 X 200 16 colors*/ 
color « 4; 
coir - 4? 

info trans (coir); /*set transparent */ 

info~video_control () ; /*enable transparency*/ 

grrtulc(0, 0,640, 200, color) ; 
info_load_key(0,data) ; /*initialize keys */ 
/* skip foward */ 

keyit(l, "Start", 500, 25) ; 
/* foward 2*/ 

keyit (2, "Pause", 500, 75) ; 
/* end 3*/ 

keyit (3, "Backwards", 500, 110) ; 
/* backwards 4 */ 

keyit (4, "Continue", 500, 140) ; 
/* skip backwardsS */ 

keyit(5,"End",500,180) ; 

/* get a screen response */ 
onoff « 3; /* for key interface */ 

info_touch(onof f ) ? /^activate screen */ /* while not end */ 
while ( (choice=inf o_touch_res (data) ) < 5) 
{ 

switch (choice) { 
case 1 : 

/* start */ 

if (pause==0 ) { 

info_from_to (zero, zero) ? /* pauses player */ 
wait (2) ; 

} . 
inf o_f rom_to ( start , stop ) ; 
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pause * 0; 
break; 
case 2 : 

/* pause */ 

info_from_to(zero, zero) ; /* pauses player */ 
pause ■ 1; 
break; 
case 3 : 

/* backwards */ 
if (pause««0 ) { 

info_from_to(zero,2ero) ? /* pauses player */ 

wait (2) ; 

) 

inf o_f rom_to ( same, start) ; 
pause ■ oT 
break; 
case 4 : 

/* continue*/ 

if (pause««0 ) { 

info_from to(zero,zero) ; /* pauses player */ 

wait(2) ; 

} 

inf o_from_to (same , stop) ; 
pause*0 ; 
break; 
} /* end switch */ 
) /* end while */ /* for end */ info_exit() ;/*stop video player */ /* bac 
normal mode */ 

easyinitf); /* redo graphics */ 

return ; 

> 

key it (keyno, stng, col, row) /*this draws a string at a point of APA sets key 
.int keyno; char stng[]? int col , row; 

I 
{ 

short int count; 
char onof f , data [10 J ; 
int coir , length , font; 



/* draw string at this position */ 
coir * 3; 
font ■ 0; 

f hatsay ( font , stng , coir , col , row) ; 

/* load the key for this boundary */ 

data[0J « keyno; 

data[l] « row/8-1 ; 

data [2 ] - col/8 -1; 

data [3] - row/8+2; 

data [4] - col/8 + 6; ; 

•inf onload key (5, data) ; } /* end of keyit*/ 
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/* COPYRIGHT (C) SYNTHES 1987 ALL RIGHTS RESERVED */ # include 

<stdio.h> linclude <dos.h> #include <stdlib.h> #include <memory.h> # include 
<conio.h> 

/* btrieve definitions */ #define BJDPEN 0 #define B_CLOSE 1 fdefine B_GEIK>: 
fdefine B_GETPR 7 #define BJ3ETEQ 5 Idefine BJSETGE 9 #define EOF_ERR 9 #defi 
BJJPDATE 3 #define B_HIGHEST 13 

#define TRUE 1 Idefine FALSE 0 

static int op; /*operation code*/ static char pos_blkl[128] ; /*posi 

block*/ static int buf_len; /* length of above */ static char key_buf[3C 
/* key buffer */ static int key_num; /* key number */ static int cert air. 

/* certainty factor read */ static int status? /* status value returned 

static struct 

char high [ 3 0] ;/* treatment of highest level */ 
char med[30]; /* treatment of medium level */ 
char low [30]; /* treatment of low level */ 
char lowest[30]; /* treatment of lowest level */ 
short int cerfac; /* holds numbers for ordering */ 
char file[5]y /* file name for implant picture */ 
char start [5]; /* start of movie */ 
char stop [5]; /* end of movie */ 
char empty [1]; /* empty space */ 
} treat_rec[5] ; 

int befaft() /* this function draws the before-after picture of the implant 

{ unsigned char f ile[40] , f ile2 [40] , data[50] ; FILE *stream, *tempf ; int 

s, count, rs, redraw needed finished; short int start, stop; /* for movie frames 

static int x[3]«{12,240,445) ; static int y[3]«{22,22,22) r char 

class[10] ,name[40] ,cutfile[40] ; int numb,bef ,aft,sum; 

/* open database for procedure classification */ status - 

btrvfB^PE^posjDlk^treat^rec, fcbuf_len, "procedur.tmp" , 0) ; if (status 0) 

printf ("Error opening file . Status * *d", status) ; 

exit(O) ; 

} 

/* open the file to obtain the classif cation number */ if ( ( teznpf « 
fopen( ,, trauma.rd",*r") ) «= NULL) { fprintf (stderr , "%s couldnt open file 'traj 
ma.rd»«); 
exit(l); 

) /* get the classification */ getone(tempf , class, &numb) ; f close (tempf) ? / 
first display the picture of the classification */ ( 
strcpy(name, M c:\\clinical\\cl") ; strncat (name, class ,4) ; strcat (name, 11 .pic ); 
determine where picture of interest is */ if (class [5] — 'l') bef - 1; if 
(class[5] ~ '2') bef «£; if (class[5] -= f 3') bef - 3; /* determine locatic 
for other boxes */ switch (bef) { 
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case 1: 

sum « 2? 

aft - 3; 

break? 
case 2: 

sum * 1; 

aft * 3; 

break? 
case 3: 

sum - 1; 

aft - 2; 

break? } /**★*★***/ redraw_needed « TRUE? finished « FALSE; while (re- 
draw needed & J finished) 
{ 

set_choice() ? 

count ■ 0; /* no choices yet */ 
/* draw the picture */ 
status*part_halo_draw (name , 4 ) ; 
/* over 1 draw the cut file picture */ 
if (class[l] « ■!') 
cut halo draw(»c:\\clinical\\c31.cut»,x[aft-l] ,y[aft-l]) ? 

""if (class [1] — '2') 
cut halo draw( ,, c;\\clinical\\c32.cut",x[aft-l] / y[aft-l]) ? 

""if (class [1] «= '3') 
cut_halo_draw ( » c : \\clinical\\c3 3 . cut" , x [ af t-1 ] , y [ af t-1 ] ) ? 
""/* over one draw a summary */ 
final_summ(x[sum-l] ,y [sum-1] , class) ; 

/* display the 'choices */ 

key_num ■ 4; /* set to certainty key */ 

buf_len « sizeof (treat_rec) ? 

status ■ btrv(B_HIGHEST,pos_blkl,&treat_rec[0] , tbuf_len, key_buf ,key_num) ; 
while (treat_rec [ count] .cerfac > (8224 + 400) && count < 4)""/* the ones 
reasonably suggested*/ 
{ 

explain (count) ; 
count++ ; 
status « 

btrv(B GETPR,pos_blkl,£ treat rec [count] , &buf 1 en, key_buf, key_num) ? 
) 

if (status !-o ) 
{ 

print f ("Error in finding highest. Status %d", status) ; 

exit (0) ; 

) 

/* read a touch choice */ 

inf o_touch(3) ; /*enable key table response */ 
redraw_needed » FALSE; 
rs«info_touch_res(data) ; 
while ( I redraw_needed && ! finished) 

{ 

info_touch(0] ? 

if (rs > 5) f inished«TRUE ; 

if (rs >0 && rs < 5) { /* check if additional pictures are availabl 
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if (treat_rec[rs-l].file[0] I- • •) { 
/* aha found an implant */ 

sprint f (cut file, "c: \\clinical\\% . 5s. cut" ,treat_rec [rs-1] . file) ? 

6 - cut_halo draw(cutfile,x[aft-l] ,y [aft-l]+15) ; 
s - cutJialoIdraw(cutfile,x[bef-l] ,y [bef ~1]+15) ; 
redraw_needed - TRUE; /* will need to redraw */ 

} 

/* find movie frame numbers */ 
sscanf (treat_rec[rs-l] .start, "%5i" , & start) ; 
sscanf (treat rec[rs-l] .stop, M %5i", fcstop) ; 
if ( start !-0l { 

/* aha a movie */ 

if (redraw needed) wait(8); /* wait 8 seconds */ 
movie (start, stop) ; 

redraw needed - TRUE; /* will need to redraw */ 
} 

) /* end rs if */ 
inf o_touch ( 3 ) ; 

if ('redraw needed) rs«info_touch res (data); 
) /* end while */ 
) /* end redraw section */ 

status ■ btrv(B_CLOSE # pos blkl, treatjrec, &buf_len,key_buf , 0) ; 
. if (status !- 0) 

1 printf ("Error closing file . Status « %d", status); 

' exit(0); 

if (rs «« 40) return(l); /*warning - recursion */ 
if (rs «* 41) return(O); 
if (rs 42) mayexit(); 

return (count) ; /* return the number found */ > /************************* 
end of befaft() *************************/ int explain (count) /* print on 

conclusions in appropriate places */ int count; { 

char data [100] ; 

int length, width; 

static int x[4]«{50,50, 400,400} ; 

static int y[4]-{150,225,150,225) ; 

width * 200; 

length « 57 ; /* make box */ 

grrtulc(x[ count] ,y[count] , width, length, 13) ; /* set up touch area */ 

data [0 ] ■ count+1; 

data[l] ■ y[count]/14. ; 

data [2] - x[count]/8. ; 

data [3] - (y [ count ]+length)/14; 

data [4] ~ (x [count] +width)/8; 

inf onload key (5, data); /* set up key table*/ /* print out results */ 
spr int f (data," *. 30s" ,treat_rec[ count] .high) ; 
f hat say ( 0 , data , 15 , x [ count ] +14 , y [ count ] +7 ) ; 
spr intf (data," %. 308;" ,treat_rec [count] .med) ; 
fhatsay (0,data, 15,x[count]+14,y[count]+21) ; 
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sprintf (data," %. 3 Os" ,treat_rec[ count] .lowest) ; 
fhatsay(0,data,15,x[count]+14,y[count]+35) ; 
sprintf (data, M % . 30s ,f ,treat rec [count] . low) ; 
f ha t say ( 0 , data , 1 5 , x [ count ] + 1 4 , y [ count ] + 4 9 ) ; 
return (0) ; 

l /*end explain */ 

/***;**************************^^ 

final summ(x,y, class) /* routine to draw a final summary of the patient * 
int x,y; char class[10]; 

FILE *tempf ; 

char string [40], str ingl [80]; 
int numb? 

/* make a box */ . 

grrtulc(x,y,200, 100,4) ? /* classification */ 
/* open the file to obtain the class */ 
if { ( tempf - f open ( "trauma, rd","r»)) — NULL) { 
fprintf (stderr,"%s couldnt open file 1 trauma. rd« ") ; 
«xit(l) ; 
) 

/* get the age */ 

getone (tempf , string, &numb) ; 

f close (tempf ) ; 

sprintf (stringl, "Classification %• 10s" , string) ? 

fhatsay(0,stringl,15,x+14,y+14>; /* age */ 

/* open the file to obtain the patient age */ 

if ( ( tempf - f open ( "pat ient.rd»,"r") ) « NULL) { 

fprintf (stderr, M %s couldnt open file •patient.rd' ") ; 

exit(l) ? 

} 

/* get the age */ 

getone (tempf, string, &numb) ; 

f close (tempf) ; 

spr int f (str ingl , "Patient Age % . 3s , « , string) ; 
fhatsay(0,stringl,15,x+14,y+28) ; /* open tissue */ 
/* open the file to obtain the open grade */ 
if ( ( tempf - fopen("tissue.rd","r")) — NULL) { 
fprintf (stderr,"%s couldnt open file ' tissue. rd' ") ; 
exit(l) ? 

/* get the openness */ 
getone (tempf , string , Snumb) ; 
getone (tempf, string, &numb) ? 
getone (tempf, string, &numb) ; 
getone (tempf, string, &numb) ; 
getone (tempf , string, &numb) ; 
f close (tempf) ; 

sprintf (stringl, "Openness %. Is, ", string) ; 
fhatsay(0,stringl,15,x+14,y+42) ? /* concerns */ 
/* open the file to obtain the converns */ 
if ( ( tempf « fopen( ,, disease.rd , \ M r H )) — NULL) { 
fprintf (stderr,"%s couldnt open file 'disease. rd' ") ; 
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exit(l) ; 

/* get the osteo number */ 

getone (tempf, string, tnumb) ? 

sprint f (stringl, "Osteoporosis %i%% M ,numb) ? 

fhatsay(0,stringl,15,x+l4,y+56) ; 

/* get the surgery number */ 

getone (tempf , string, finumb) ; 

sprintf (stringl, "Surgery %i%%" ,numb) ; 

f hatsay ( o , stringl , 15 # x+14 , y+68 ) ; 

/* get the Reliability number */ 

getone (tempf , string , finumb) ; 

sprintf (stringl, "Reliability %i«",numb) ; 

fhatsay(0, stringl, 15, x+14,y+82) ; 

f close (tempf) ? 

/***"***^ vait(seco 
/* routine to wait a number of seconds */ int seconds; 

long ltime,wtime; 

time(fcwtime) ; /* current time */ 
while ( (ltime-wtime) < seconds) 

time(&ltime) ; 
} 

return ? 

} /* end of wait */ 
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/* COPYRIGHT (C) SYNTHES 1987 ALL RIGHTS RESERVED */ 

* Library routines for using the IBM InfoWindow. 

* *********************/ 

# include <dos.h> 
/* Definitons 

idefine^RROR 115 0x00 #define SYSTEM 0x01 #define VIDEO 0x02 Idefine 
ROMSPEECH 0x03 #define EXTSPEECH 0x04 tdefine TOUCH 0x05 Idefine VDP1 

0x06 Idefine VDP2 0x07 Idefine TIME 0x08 



♦define STOP 0x00 Idefine 

#define R0M — SPEAK 0x01 #define 

Idefine TOUCH_RESP 0x04 Idefine 

Idefine VDP EXIT 0x12 Idefine 

♦define STILL FRAME 0x02 Idefine 

Idefine WAKEUP 0x03 Idefine 



VIDEO CNTRL 0x01 

TOUCH~CNTRL 0x01 

SOUND_BEEP 0x05 

VDP_AUDIO 0X07 

PLAY 0x04 

READ FRAME OxOA 



/* commands 

♦define START 0x01 
Idefine TRANSPARENT 0x03 
Idefine KEY_ TABLE 0x02 
♦define VDP_INIT 0x01 
♦define MATCH_FRAME 0x09 
Idefine FROM TO 0x03 
Idefine DISPLAY 0x06 

♦define matchframe response 3 Idefine outside_touch 4 Idefine resp_invalid 5 

Idefine TRUE 1? Idefine FALSE 0; /* GLOBAL DECLARATIONS 

*/ 

/* Command buffer for sends and receives 
struct databuf { 

short int count; 

char id; 

char destination ; 

char command ; 

unsigned char data [247]; 

In- 
struct cntbuf { 

short int kind; 
unsigned short int off_data; 
unsigned short int seg_data; 
unsigned short int off_global; 
unsigned short int seg_global; 

- }? 



/* Global variables defined at the external level 
*/ struct { . . 

short int sndst; 

short int recst; 

short int staO; 

short int ver; 

short int dcode; 

short int pcode; i 

} avi; 
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extern int WAXE_UP_ROUTINE () ; 

/* Define work space for calculating address of wake up routine, 
union 

{ 

long int address; 
char addr_array [4]; 
} wakeup_address; 

/****************************************** 

info_start() /* 
* ~~ 

* Send Start command and wait to receive Start Response. 

{ 

short int count; 

char id destination, command, data [1] ; 

count - 5; 
id - 1; 

destination « SYSTEM; 
command «= START; 

inf o_send (count , id , destination , command, data) ; 

/* Define the expected response data for the START response and receive i 

*/ 

count m 6; 
id - 1; 

destination « SYSTEM; 
command « START; 

info_receive(id, destination, command, data); 
} /**** end of info_start *****/ 

/**************************** 

inf ojtrans (color) char color; /* 
* 

\ * Send Set Transparent Color command and wait to receive * 

* the response. 

{ 

short int count; 

char id, destination, command, data [10] ; 
count « 7 ; 
id - 1; 

destination « VIDEO; 
command ■ TRANSPARENT; 

data [0] m color; /* color */ 
data [1] - color; 

info_send( count, id, destination, command, data) ; 

/* Define the expected response data for the TRANSPARENT response and re- 
ceive*/ 

count « 6 ; 

id - 1; ? 
destination - VIDEO; 
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command « TRANSPARENT; 

info_receive(id, destination, command, data)? 
} /* end of info_trans */ 



*************************************************** *************** ********/ 
info_vake_up(function_addr) int (*function_addr) (unsigned short, unsigned sho 
unsigned short) ; /* 

* Send Wake-up command and wait to receive response. 



* 

* 



{ 

short int count? 

char id , destination , command , data [ 4 ] ? 

count ■ 9? 
id - 1; 

destination - SYSTEM? 
command ■ WAKEUP? 



V 



vakeup address. address - function_addr ? 

/* assign address of the vakeup routine to the vakeup_address union. 



data [0] - vakeup_address.addr_array [2] 

data [1] « vakeup_address.addr_array [3] 

data [2] « vakeup address. addr_array [0] 

data [3] « vakeup~address . addr_array [1] 



/* low byte - segm */ 
/* hi byte - segm */ 
/* lov byte - offs */ 
/* hi byte - offs */ 



info_send( count, id, destination7command,data) ; 
/* Define the expected response data for the ' WAKEUP response. 

*/ 

count « 6? 
id « 1? 

destination » SYSTEM; 
command « WAKEUP? 

info_receive(id, destination, command, data)? 
} /*end vake_up */ 

/***************** ***************^^ 

info_rom_speak (count, data) short int count? char data[]? 
/* 

* Send ROM Speak command count is the number of bytes of data (only) */ 

char id, destination, command? 
count « count + 5? 
id - 1? 

destination » ROMSPEECH? 
command * ROM_SPEAK? 

info_send( count, id, destination, command, data) ; 
/* Define the expected response data for the INITIALIZE response. 

*/ 

.count « 6? 

id = l? : 
destination - ROMSPEECH; 
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command * ROM__SPEAK; 

info_receive(id, destination, command, data); 
} /*end info_rom_speak*/ 

/********************************* 

inf o_init_video ( ) /* 

* 

* Send VDP Initialize command and wait to receive response. 

{ 

short int count; 

char id, destination, command, data[l] ; 
count » 5; 
id «= 1; 

destination - VDP1; 
command - VDP_INIT; 

info_send( count, id, destination, command, data) ; 

/* Define the expected response data for the INITIALIZE response. 

*/ 

count « 6; 
id - 1; 

destination - VDP1; 
command « VDP INIT; 

info_receive(Td, destination, command, data); 
} /*end info_init_video*/ 

/A****************************************************************/ 

inf o_enable_audio ( ) /* 

* Send VDP Audio command to enable both VDP audio channels. Wait to 

* receive response. 
* 



( 

short int count; 

char id, destination, command, data[l] ; 

count « 6; 
id - 1; 

destination « VDP1; 
command « VDP_AUDIO; 
, data[0] - 0x03; 
info_send( count, id, destination, command, data) ; 

/* Define the expected response data for the VDP AUDIO response. 

*/ 

count * 6; 
id « 1; 

destination « VDP1; 
command « VDP AUDIO; 

info receive (Td, destination, command, data) ; 
) /*~end info_enable; audio */ 
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/********** ********* *********** **************************************/ 

inf o_match_f rame ( frame) short int frame; /* 
* 

* Send Match Frame command for frame * 
* 

{ 

short int count; 

char id, destination, command, data [10] ; 
count « 7; 
id * 1; 

destination » VDP1; 
command « HATCH_FRAME ; 

data[0] ■ frame » 8? /* take high byte */ 
data[l] m frame & OxFF; /* low byte */ 
inf o_send ( count , id , destination , command , data ) ; 
} /*end match_frame */ 

/************************************************************************/ 

inf o_play( frame, direct) short int frame; char direct; /* 0 forward, 1 backwar 
*/ 

/* 

* Send VDP Flay command for frame and wait to receive Play response. * 
* 

{ 

short int count; 

char id, destination, command, data [3] ; 
count « 8; 
id - lj 

destination - VDP1; 
command ■= PLAY; 

data[0] - direct; /* play direction */ 

data[l] * frame » B; /*high byte */ 
data [2] - frame & OxFF; /* low byte */ 

inf o_send ( count , id , destination , command , data) ; 

/* Define the expected response data for the VDP PLAY response. 

*/ 

count « 6 ; 
id - 1; 

destination « VDP1; 
command « PLAY; 

info_receive (id, destination, command, data); 

} /*end info_play */ 
/************************************************************************/ 

info_fromjto(frame,toframe) short int frame, toframe; 
/* 

* Send VDP command for from to play dont wait for response * 
* 

< . f 

short int count; 
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char id , destination , command , data [ 4 ] ; 
count ■ 9; 
id * 0; 

destination « VDP1; 
command * FROMJTO; 

data[0] « frame » 8; /*high byte */ 

data[l] - frame £ OxFF; /* low byte */ 

data [2] - toframe » 8; /*high byte */ 

data [3] - toframe & OxFF; /* low byte */ 

if (frame «« 0) count - 5? /* no data, to cancel */ 

inf o_send ( count , id , destination , command , data) ; 

) /*end info_play */ 

/************************************* ****^ 

info_load_key (count, data) short int count; char data[]; /* 

* Send Load Key Table command, count is the length of data , 

* its format is key number f upper left row then column, lower right row 

* then column, i.e. 5 bytes per key to set 
* 

{ 

char id, destination, command; 

count • count + 5; /* for the command info*/ 

id « 1; 

destination « TOUCH; 
command « KEY_TABLE; 

inf o_send (count, id destination, command, data) ; 

/* Define the expected response data for the LOAD KEYTABLE response. 

*/ 

info_receive(id, destination, command, data); 
} /*end load key*/ 
/***************** ****************^ 

inf o_video_control ( ) /* 
* 

* Send Video Control command to: enable video input 1, transparency, 

* normal color palette and composite source 1; disable: interlace, 

* auxiliary video output and composite source 2. Wait to receive response. 
* 

{ 

short int count; 

char id, destination, command, data [10] ; 
count « 7; 
id ■ 1? 

destination = VIDEO; 
command « VI DEO_CNTRL ; 

data[0] « 0x10; /* Disable interlace, normal color */ 

/* palette, enable transparency, disable 
/* auxiliary video output 

data[l] m 0x80; /* enable composite source 1, disable */ 

/* source 2 

info send (count, id, destination, command, data) ; 
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/* Define the expected response data for the VIDEO CONTROL response, */ 
count - 6; 
id * it 

destination « VIDEO; 
command ■ VI DEO_CNTRL ; 

info_receive(id, destination, command, data); 
} /*end video control */ 

/***************************** * ******** * ********* *************************** y 

info_touch (onoff) char onoff; /* 
* 

* Send Touch Control command to enable a touch in key table mode and to 

* enable good beep. Wait to receive response. 

* 1 for row/column, 2 for x/y, 3 for key table , 0 for off 

{ 

short int count; 

char id destination, command, data [10] ; 

count ■ 6; 
id « 1; 

destination « TOUCH; 
command - TOUCH_CNTRL; 
switch (onoff) 
{ 

case 0 : 

data[0] - 0x00; 

break; 
case 1 : 

data[0] - 0xC9; 

break; 
case 2 : 

data[0] - 0XC5; 

break; 
case 3 : 

data[0] - 0xC3; 

break; 
} /* end switch */ 



info_send (count, id, destination, command, data ) ; /* Define the expected resp 
data for the TOUCH CONTROL response. */ 
id » 1; 

destination « TOUCH; 
command « TOUCH_CNTRL ; 

infp_receive (id, destination, command, data); 
} /*end info_touch */ 

^* ******** ** *************************************************************** y 

info_still_frame( frame) /*displays a still frame */ 

short int frame; 
< 

short int count; 

char id, destination^onunand, data [ 10 ] ; 
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count — 7 ; 
id - 1; 

destination » VDP1; 

command m STILL_FRAME; 

data[l] « frame » B; /*high byte */ 

data [2] « frame & OxFF; /* low byte */ 

inf o_send ( count , id , destination , command , data ) ; 

info_receive(id, destination, command, data); 

) /*end still frame */ 

int info_read frame () /* returns the current frame number */ 
{ 

short int count; 

char id, destination, command, data [10] ; 
int result; 

count - 5; 
id « 1; 

destination ■ VDP1; 
command ■ READJFRAME; 

inf o_send (count, id, destination, command, data) ; 

inf o_receive ( id , destination, command, data); 

result m (data[l]«8) + data[2]; /*frame returned */ 

return (result) ; 

} /*end info_read_frame */ 

/********************************** *************************************** 

inf o_display (onoff ) /* show frame number on screen */ 
char onoff ; /* 1 is on, 0 is off */ 

( 

short int count; 
^ char id, destination, command, data[10] ; 

count ■ 6; 
id « H 

destination - VDP1; 
command « DISPLAY; 
data[0] - onoff; 

inf o_send (count , id r destination , command , data ) ; 
info_receive(id, destination, command, data); 
} /*end info_display */ 

/*************** ************************************************* *y 

info_exit() /*spin down disc */ 

{ 

short int count; 

char id, destination, command, data [10] ; 
count - 5; 
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id * 1? 

destination - VDP1; 
command « VDP_EXXT; 

info B end(count,id,destination,coimand,data) ; 

/* Define the expected response data for the VDP1 EXIT */ 

info receive (id, destination, command, data) ; 

info_stop() /* 

* Send Stop command and wait to receive response. 
* 

{ 

short int count? 

char id , destination , command , data [ 1 ] ; 
count ■ 5 ; 
id « 1; 

destination - SYSTEM 7 
command - STOP; 

info^send (count, id, destination, command, data) ; 



V 



/* Define the expected response data for the STOP response. 

count ■ 6; 
id - 1; 

destination « SYSTEM? 
command * STOP; 

info_receive(id, destination, command, data); 
) /*end info_stop */ 

/************************^^ 

info rec_match() /*receive matchframe function*/ 

T 

short int count; 

char id, destination, command; 

char data[l] ; 

/* Receive the Match Frame response. */ 
count ■ 6; 
id - 1; 

destination « VDP1; 
command - KATCH_FRAME; 
data [0] - 0x00; 

info_receive(id, destination, command, data); 
) /*end info_rec_match */ 

/******************************** 

int info_touch_res(data) /*receive touch response*/ 
char data [ ] ; f 

{ 
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short int count; 

char id, destination, command; 

int key; /* valid in key mode*/ 

count « 5; 
id * 00; 

destination ■ TOUCH; 
command ■ TOUCH_RESP; 

info_receive(id, destination, command, data) ; 
key - data 12]? 

if (data[l] i« 2) key * 0? /* not in key mode */ 
return (key) ; 

} /*end info touch res*/ 
/************ ******************************************************* ********/ 

inf o_sound_beep ( ) 
/* 

* Send Touchscreen Sound Beep command to sound a good beep and wait to 

* receive response. 
* 

{ 

short int count; 

char id, destination, command; 

char data [ 1 ) ; 

count « 6; 
id « 1; 

destination « TOUCH; 
command ■ SOUND — BEEP; 

data [0] « 0x8 0; /* sound good beep V 
inf o_send (count , id , destination , command, data) ; 

/* Define the expected response data for the SOUND BEEP response, 
count « 6; 
id - 1; 

destination m TOUCH; 
command * SOUND_BEEP; 

info_receive(id, destination, command, data); 
} /*end sound_beep */ 

/♦★★A*******************************************************************/ 

info_send (count, id, destination, command, indata) short int count; char 
id /destination., command; unsigned char indata[]; 

/**************************************************************************** 

* This routine sends a command buffer to the InfoWindow. After return from 

* AVTSND, avi.sndst is checked. If zero is found, return. If avi.sndst is 

* a 1, call RECEIVE to receive any error responses, decipher the error 

* response and abort. If avi.sndst is anything else, display a description 

* of the error and abort. 

**************************************************************************** 
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int cntr, datalen; union REGS inregs; union REGS outregs; struct SRZGS segrec 
struct databuf sendbuf_ptr , recbuf jptr; struct cntbuf troll_ptr; int intno; / 
interrupt number */ short int far *longptr; 



/★★a********************* first place values in send buffer */ sendbufjtr . c 
m count; sendbuf _ptr . id - id; sendbuf_ptr. destination « destination; 
sendbuf_ptr. command « command; 

datalen « count - 5; /* amount of data */ if (datalen > 0) { /* place dat 
its section */ 

for (cntr « 0;cntr < datalen; cntr++) 
{ 

sendbufjptr. data [cntr] - indata[cntr] ; 

} 

} /* end of datalen loop */ 

/************************* now 8e t up control buffer */ 
troll _ptr. kind - 0x0000; /*this is a send*/ 
longptr • fcsendbuf _ptr. count; 
troll jptr. of f_data - FPJDFF (longptr) ; 
troll^ptr.seg^data - FP~SEG (longptr) ; 
longptr « fcavT.sndst; 

troll_ptr.of f_global ■ FF_OFF( longptr) ; /* first of global */ 
troll_ptr.seg_global « FP_S EG (longptr) ; 

/************************ now set up for interrupt ******/ 

/* place segment address of control block */ 
longptr « *troll_ptr.kind; 

segregs.ds « FP_SEG (longptr) ; /* place offset address of control block */ 
inregs. x.dx * FP_OFF (longptr) ; /* place word in A register */ 
inregs. x. ax - 0x0107; /* issue the interrupt */ 
intno « 0x7 F; 

avi.sndst « 4; /*change it so it is a positive test */ 
int86x(intno, fcinregs, fcoutregs, fisegregs) ; /* interrupt */ 



/************************* C h eC }c f 0r error ****************/ 

/* If avi.sndst is not zero, print out an error message and quit, 
if (avi.sndst i« 0x0000) 
{ 

printf ( H \nAfter sending a command, variable avi.sndst indicates an er 

ror"); 

switch (avi.sndst) 
{ 

case 0x0001: 

printf ("\n Unable to send code ") ; 

break ; 
case 0X0002: 

printf ("\nAn unsupported Destination Code was specif ied. ") ; 
break ; 
case 0x0003: f 

printf ( M \nBuffer sent was of an invalid length 
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(%i) " ,sendbuf _ptr. count) ; 

break; 
case 0x0004: 

printf ( M \nAll transmit buffers are full"); 

break; 
case 0x0005: 

printf ( H \nCommand rejected. Display is in an invalid state") ; 
break ; 
case 0x0006: 

printf ("\nResident PC code is not loaded") ; 
break; 

} /* end switch */ 

exit() ; /*stop the program */ 
) /* end if avi.sndst not zero */ } /* end info 
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(C) SYNTHES 1987 ALL RIGHTS RESERVED */ V '* C ° PV * 

/*******************************«^ 

^* Library routines for using the cursor not I IBM InfoWindov. 
* 

< 2"H**********************"**"************ / * includ * <a««ory.h> f include 

/* global area to save keys loaded */ struct { 
int ulr; /* upper left row */ 
int ulc; /* upper left col */ 
int lrr; /* lower right row */ 

int lrc; /* lower right col */ } keys [60] 7 char touch type; /* 1 for 
row/column, 2 for x/y, 3 for key table , 0 for off */ " 

info start {) /* this routine need not do anything for the cursor*/ 
return ; 

} /**★* Gnc a of info_start ****★/ 

/*********************************^ 

info_trans (color) char color; /* / 

* this routine need not do anything if there is no video system */ 

return ; 

> /* end of info trans */ 
/************************************^ 

^i^ m ^^^i m - BMx) int (*function_addr) (unsigned short, unsigned she 

* dont do anything - no video */ 

return ? 

} /*end wake_up */ 
/*****************************^^ 

info_rom_speak( count, data) short int count; char data[]; 
* sorry, when no video - no speech*/ 

return ; 

} /*end info_rom speak*/ 
/***********************************^^ 

inf o_init_video ( ) /* ' 

* dont do anything */ 

return ; 

} /*end info_init_video*/ 
info_enable_audio() /* ? * 
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* dont do anything */ 

{ 

return ; 

} /* end info_enable audio */ 
/********************************************************************/ 

info_match_frame (frame) short int frame; /* 
* 

* dont do anything */ 

{ 

return ; 

) /*end match_frame */ 
/*************************** ***************^ 

info_play( frame, direct) short int frame; char direct; /* 0 forward, 1 backwar 
*/ /* 

* dont do anything */ 

{ 

return ; 

) /*end info play */ 
/a***************************** ******* 

info_from_to ( frame ,toframe) short int frame, toframe; /* 

* "~ 

* dont do anything */ 

( 

return ; 

} /*end info_play */ 
****************************** 

info_load_key (count, data) short int count; char data[]; /* 

* — 

* Send Load Key Table command, count is the length of data , 

* its format is key number, upper left row then column, lower right row 

* then column, i.e. 5 bytes per key to set 
* 

{ 

int i; 

if (count > 300) return(l); 
t for (i«0 ; i < count; i«i+5) 
{ 

keys[data[i] ] .ulr ■ data[i+l]; 
keys [data [i] 3 .ulc « data[i+2]; 
keys [data [ i] ] .lrr « data[i+3]; 
keys [data [ i] ]. Ire * data[i+4]; 
} /* end for */ 
if (count 0) { /* this is code to remove key table */ 
for (i«0;i<60;i++) 
( 

keys[i] .ulr « 0 ; 
keys[i] .ulc « 0 ; 
keys [ i ] . lrr « 0 ; 
keys[ij .Ire = 0; 
) 

} 

} /*end load key*/ ; 
/********************************************** 
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inf o_video_control ( ) /* 
★ 

do nothing */ 
{ 

return ; 

} /*end video control */ 
/*********************************************** ***************************^ 

info_touch( onoff ) char onoff; 

/* 1 for row/column, 2 for x/y, 3 for key table , 0 for off 
/* save this type */ 
{ 

touchjtype « onoff; 
} /*end info_touch */ 
/*************************************************************************/ 

info_still^frame (frame) /*displays a still frame */ 

short Tnt frame; 
/* dont do anything */ 

{ 

return ? 

} /*end still frame */ 
/*************************************************************************/ i 
info_read frame () /* returns the current frame number */ 

I 

/* dont do anything */ 
return (0) ; 

} /*end info read frame */ 
/********************* ************************************* ***************/ 

info_display (onoff ) /* show frame number on screen */ 

char onoff; /* 1 is on, 0 is off */ 

( 

/* dont do anything */ 
return ; 

} /*end info display */ 
/************ ***********************^^ 

info_exit() /*spin down disc */ 
/* dont do anything */ 
{ 

return ; 

} /* end info exit */ 
/*************************************************************************/ 

info_stop() /* 
* 

* Send Stop command and wait to receive response, 
* 

{ 

/* dont do anything */ 
return ; 

} /*end info_stop */ 
/★A*************************************************************/ 

info rec_match() /*receive matchframe function*/ 

T 

/* dont do anything */ 
} /*end info rec rfatch */ 
/*********************************************************************/ 
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int info_touch_res(data) /*receive touch response ,uhm change to cursor 
/* assumes an egamode is in use */ 
char data [ ] ; 
I 

int sw,i,x,y,area,x2,y2,key; 
unsigned int ix,iy; 
int maxx,maxy,row,col; 
int mode , type; 
float ratx,raty; 

/* get screen mode in current use */ 
mode - getmode() ; 
switch (mode) { 
case 13: 

maxx ■ 320; 
maxy - 200; 
break; 
case 14: 

maxx « 64 0; 
maxy * 200; 
break; 
case 15: 

maxx - 640; 
maxy - 350; 
break; 
case 16: 

maxx « 640; 
maxy ■ 350; 
break ; 
default: 

printf (" ega not in use M ) ; 
return ; 
break; 
} /* end mode switch */ 
/* move cursor to middle if it is too far off */ 
gcurget (&x, fiy) ; 

if (x < 5 ) gcurloc(maxx/2,maxy/2) ; 
if (y < 5 ) gcurloc(maxx/2,maxy/2) ; 
if (x > maxx - 5 ) gcurloc (maxx/2 ,maxy/2 ) ; 
if (y > maxy - 5 ) gcurloc (maxx/2, maxy/2) ; 
gcurget ( &x2 , &y 2 ) ; 
gcursize(ll,ll,14,10,0) ; 
. /* get a cursor position */ 
sw ■ 0;/* return on after keyhit */ 
i«gcurmove (sw, &x, &y , fckey) ; 

/* response based upon touchjtype */ 
data[0] « 0;/* no error */ 
ratx « 255./*aaxx; 
raty - 255,/ nax Y? 

ix - x*ratx? /* transfer from ega x to ibm x */ 
iy m y*ratyr /* transfer from ega y to ibm y */ 
row=(iy-ll)/9; /*tr*nsfer from ibm y to row */ 
col*(ix-6}/3; /*transfer from ibm x to col */ 
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switch (touch type) 
{ 

case 1: /* row column */ 

data[l]«8; /* mode returned */ 

data[2]«row; 

data[3]«col ; 

break; 
case 2: /*x-y return */ 

data[l]«4; /* mode returned */ 

data[2]«ix; 

data[3]*iy; 

break? 

case 3: /* key table return */ 

data [1] -2; /* mode returned */ 
/* find area */ 
area - 0; 
i - l; 

while (area — 0 && i < 60) { 

/* check if it is inside this one */ 

if (row <« keys[i].lrr fc& row >« keys[i].ulr fc& col <= 
keys [i]. Ire && col >» keys[i].ulc) 

{ 

area - i; 

} /* end if */ 

i++; 

} /* end while */ 
data[2]«area; 
data [3 ]»ix; 
data[4]-iy; 

break; /* last case of switch */ 
) /* end switch */ 
return (area) ; 
) /*end infojtou ch_res*/ 
/*********************************** **************^ 

inf o_sound_beep ( ) 
/* 

* Send Touchscreen Sound Beep command to sound a good beep and wait to 

* receive response. 

{ 

/* dont do anything */ 
return ; 

} /*end sound_beep */ 
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/* COPYRIGHT (C) SYNTHES 1987 ALL RIGHTS RESERVED */ ^include 

<stdio.h> # include <dos.h> #include <stdlib.h> #include <memory.h> # include 
<conio.h> /**************************************************/ int 
part_halo_draw(naBe2, planum) /* clipping halo draw, direct to ega mem */ 
/* draw planum planes */ char name2[]; int planum; 

{ unsigned add, mode ; /*ega ports*/ char color; int plane, s; FILE *stream; ex 
int _clip,_cliplc,_cliplr,_clipuc,_clipur; 

/* check picture file */ if ((stream - fopen(name2, H rb H ) ) — NULL) return(l 
f close ( stream) ; /* close it for now */ 

/* erase that box */ grrtulc (_clipuc,_clipur,_cliplc-_clipuc,_cliplr-_clipur , 

/* first set write mode to 0*/ add - 0x3CE; mode ■ 0x3CF; outp(add,5); 
outp (mode, 0) ; 

/* now set data mask to full*/ outp (add, 0x8) ; outp (mode , OxFF ) ; 
/* now loop for each plane */ color ■ 1; 

for ( plane^O; plane<planum; plane++) /* # planes needed*/ 
{ 

/* set the map mask for this plane */ 
add * 0x3C4 ; /* address for map mask */ 
mode m 0x3 C5 ; 
outp (add, 2) ; 
outp (mode, color) ; 

if ((s«part_draw_plane(name2,plane / planum) ) ««1) return(l); /* draw the 
plane */ 

color ■ color « 1; /* next color */ 

} 

return (0); ) /* end of part_halo_draw */ 
/★★★★A***************************************************/ 

int part_drav_plane(name2, plane, planum) /* routine to draw a plane of data 
char name2[]; int plane, planum; ( 

char far *plength, *pointer, *pmin, *pmax; static FILE *stream? unsigned char 
line [512]'; /* to hold line of data */ int datalen,numread, status; register 
short int loop, count; /* grab variables from graphics package */ extern int 
_clip,_cliplc,_cliplr,_clipuc,_clipur; int row, col; 

count « 0; FP_SEG(plength) « OxAOOO; FP_OFF(plength) * 80 * 350 ; /* nuirier 
bytes in plane */ 

if (plane == 0 ) { 

/* open picture file */ 

if ( (stream - fopen(name2, ,, rb") ) — NULL) { 

fprintf (stderr, "couldn't open file %s\n" , name2 ) ; 

return (1); f 

} 
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numread « f read (line, 1,512, stream ) ; /* read the first block */ 
if ((line[0] !- 0x41) |I (line[l] 1« 0x48) )/* sure dr halo */ 

{initgraf (3,0, 0) ; /* back to text mode */ 

f print f (stderr, "error - not a dr halo file ") ; 

initgraf (3 , 0, 0) ; /* set back to 80 column with color */ 

info_stop() ;/*stop it */ 

exit(l) ; J 



/* mode of 640 X 350 16 colors */ 

count « 12; /* need to skip past header file */ 

) /* end if plane 0 */ if (plane !« 0 ) numread « f read (line, 1, 512 , strear 
/* just read in first line*/ 



/* set pointer to beginning of plane */ 

/* screen begins at aOOO 0000 */ FP_SEG (pointer) ■ OxAOOO; FP_0FF (pointer) 
Oxoooo; 

FP_OFF(pmax) - _cliplr * 80 + _cliplc/8; /* lower right of clip boundary */ 
FP_SEG(pmax) « OxAOOO; 

if (plength < pmax) pmax « plength; /* use clipping boundary or end of plar.e . 

FP_SEG(pmin) « OxAOOO; FP_OFF(pmin) « _clipur * 80 + _clipuc/8; /* upper left 
clip boundary */ 

while (numread « 512 ) /* for each block */ 

{ 

while( (count < 512) || (line [count] l« 128)) /* for each byte */ 
{ 

if ( 1 ine[ count ]«0) break; /*end of block */ 
if (Iine[count3«0x8 0) break; /*end of block */ 
datalen « line [count 3 & 0x7 F; 

if (line[count]&0x80) /* duplication symbol */ 

{ 

count++ ; 

for (loop«0;loop < datalen ; loop++) 

{ 

if (pointer>pmin && pointer<pmax && line [count] I =0) *pointer 

line [count] ; 

pointer++; 
} /* end looping */ 
count++; /* done with this data */ 
) /* end duplication loop */ 
else /* no duplication */ 

{ 

count++; 

for (loop « 0 ; loop < datalen ;loop++) 
{ 

if (pointer >pmin && pointer < pmax) *pointer * line [count;; 
pointer-^; 

count+f; /*done with this data */ 
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) /* end looping */ 
} /* end no duplications */ 
} /* end block */ 
numread - 0 ? 

if (pointer < plength) { /* test for full screen */ 

numread « f read (line, 1,512, stream) ; /* read the next line */ 

count * 0; 

} 

} /*end of plane */ if (plane «~ planum-1) { 
status«f close (stream) ; 
if (status !«0) { 

fprintf (stderr, H error closing picture ") ; 

exit(l) ? 

} 

) 

return; } /* end of part_draw_plane */ 
/** **************************** *****************************************/ 

load_choice () /*this routine loads keys 40,41 with the return and next keys*/ 



{ 



/** 

y*t; 



int ulc,ulr,lrc,lrr ; /* clipping borders */ 

short int zero? 

static char datal[15J*{ 

40,20,10,25,24,41,20,53,25,69,42,20,32,25,43} ? 
char data [40]; 
ulc « 0? 
ulr - 0; 
lrr * 295? 
Ire « 64 0; 
2ero - 0; 

info_load_key( zero, data) ; /* erase all keys first */ 
strncpy (data,datal, 15) ? 
info_load_key (15, data) ? 

clipsize(ulc,ulr,lrc,lrr) ; /* clip size, rest of screen */ 
return? } /* end of load_choice */ 
★a************************************************************/ set choice 

this routine sets up for the screen bottom*/ ™ 

int ulc, ulr, lrc, lrr; /* clipping borders */ 
static char datal[15]«( 

40,20,10,25,24,41,20,53,25,69,42,20,32,25,43} ; 
char data [4 0] ? 
ulc * 0; 
ulr - 252; 
lrr « 350; 
lrc « 640? 

info_load_key (0,data) ; /* erase all keys first */ 
clipsize(ulc,ulr,lrc,lrr) ? 

part_hal o_draw ( " c : \\cl ini cal \\choice . pic " , 4 ) ? 
strncpy (data, datal, 15) ; 
info_load_key (15, data) ; 
ulr « 0; r 
lrr * 295; 
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clipsize(ulc,ulr,lrc,lrr) ; /* clip size, rest of screen */ 

return; } /* end set_choice */ 
/****************************************** ************************/ may exit ( 
/* might exit here, give user second chance */ 
{ 

char data [10] ; 
int rs; 

inf o_touch (3) ; /*touch on */ 

if ( (rs«in£o_touch_res (data) ) «»42) 

{ 

initgraf (3,0,0) ; /* set back to 80 column with color */ 
info stop() ;/*stop it */ 
fcloseall(); /* close all files */ 
exit(l) ; 

) 

info_touch(0) ; /* touch off */ 
return; 

} /**************************************************** *************/ in- 
cut halo draw (file, x,y) /*given x,y location draw a cut file there */ char 
file[] ; Tnt x,y; { 

FILE *stream; unsigned char line[512]; /* to hold line of data */ short int 
length, width, height; int numr e ad , status ; int 
dup,h,lg,count,loop,datalen,offy,offx; char color; 

/* open file */ if ((stream * f open (file, "rb") ) «« NULL) { 
fprintf (stderr, "couldn't open file %s\n" , f ile) ; 
return (1) ; 

} numread « fread (line, 1, 512 , stream) ; /* read the first block */ if ((line 
!« 0x00) || (line[5] I- 0x00) )/* sure dr halo */ 
{initgraf (3,0,0) ; /* back to text mode */ 
fprintf (stderr," error - not a dr halo file\n") ; 
return (1); } 

/* the first 4 bytes relate to the width and height */ width - line[0]; heigh 
line [2]; count » 6; /* towards start of data */ of fx ■ 0; offy « 0; for 
(h*height? h > 0 ;h— •) /* draw each row as read */ 
{ 

length « line [count]; 

count_upd ( 4 count , fit numr ead , line, stream, &lg) ; 
count~upd ( fccount , inumread , line, stream , 4Ug) ; 
Ig « count; 

while ( (count - lg) < length) { /* for these many bytes */ 
datalen - line [count] &0x7F; 

if ( (dup«line[ count] ) £0x80) /* duplication symbol */ 

{ 

count_upd (& count, fcnumread, line, stream, &lg) ? 
color""- line [count]; /* use this data */ 
count_upd(& count, finumread, line, stream, &lg) ? 
if (color ««0 ) { /* skip background color I I */ 
for (loop«0;loop < datalen ; loop-M-} 

{ / 

offx++; 



EP 0 303 930 A2 



COPYRIGHT (C) SYNTHES 1987 ALL RIGHTS RESERVED 



if ( of fx >« width ) { 
of fx - 0; 
of f y++ ; } 
} /* end looping */ 
} /* end if no color */ 
if (color I- 0) { 

for (loop«o;loop < datalen ; loop++) 

{ 

dot ( off x+x, of fy+y, color) ; 
offx++; 

if ( offx >« width ) { 
of fx « 0; 
offy++; } 
} /* end looping */ 
} /* end color */ 

} /* end duplication loop */ 

if ( i (dup&0x80) ) /* no duplication symbol */ 

{ 

countjapd (& count , finumread , line, stream , &lg) ; 
for (loop « 0 ; loop < datalen ;loop++) 
{ 

color « line [count]; /* use this data */ 
count_upd(& count, fcnumread, line, stream, &lg) ; 
if (colori«0) dot (off x+x, of fy+y, color) ; 
of fx++; 

if ( offx >« width ) { 
offx * 0; 
offy++; ) 
) /* end looping */ 
) /* end no duplications */ 
} /* end row while */ 
) /* end for height */ 
status « f close (stream) ? 

if (status i« 0) printf ( M \n\n error closing stream\n M ) ; 
return(O); ) /* end of cut_halo_draw */ 



count_upd (count, numre ad, line, stream ,lg) /* used by routine cut_helo_draw to 
update count and check if read necessary */ 

int *count,*nuznread? char lirie[]; FILE *stream; int *lg; 

{ 

(*count)++; 

if ((*count) >* (*numread) ) { /*read in next line */ 

**numread « fread (line, 1,5 12, stream ) ; /* read the first block */ 
*lg ■ (*lg) - (*count) ; /* set back a few to take account of those rea 
*count =0; } 
return ; 

) /* end of count_upd */ 
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/* COPYRIGHT (C) SYNTHES 1987 ALL RIGHTS RESERVED */ /* libra 

of functions for manipulating windows for touchscreen */ /* .assumptions : ega 
initialized, touch screen set up, font 0 loaded */ 

* include <string.h> #include <malloc.h> # include <stdio,h> 

/* global window parameters */ static struct { 
char *p; 
int ulc,ulr; 

}window[10] ; 

int wind_make (number ,ulc,ulr, lrc ,nlines) /*initialize a window */ 

int number; /* the window number being created ,from 0 to 9*/ int ulc,ulr,lrc 
coordinates (high resolution apa) */ int mines; /* number of lines (rows) fc 
the window */ 

{ 

int lrr,size; 

if (number > 9 M number < 0 ) return ( 1) ; 

Irr - ( (nlines) * 14) + ulr+10; /* 1 line per word */ 

if (lrr > 350 | | lrc > 640) { 

fprintf (stderr, "bad window coordinates"); 

«xit(l) ; 

} 

window [number] .ulc*ulc; 
window [number] .ulr«ulr; 

clipsize(ulc,ulr,lrc,lrr) ? /* set a clip boundary */ 
/* allocate some memory*/ 

size«(4+((( (lrc-ulc)*4) +7) /8) * lrr-ulr) ; 
window [number] .p * malloc(size) ; 

if (window [number] .p « NULL) { 

fprintf (stderr, "error - window space not allocated ») ; 

return (1) ; 

/* save that portion */ 
get(ulc,ulr,lrc,lrr,window[number] .p) ; 
/*erase that portion */ 
grrtulc (ulc ,ulr, Irc-ulc, lrr-ulr , 0) ; 
/*make box */ 

grrtul (ulc+1 , ulr+1 , lrc-ule-1 , lrr-ulr-1 , 15 ) ; 
return ( 0 ) ; 

windJLine (number, string, line_no, touch_no, color) /* write a line to a window 

int number; /^window number */ char string[]; /* string */ int line no; /* 1 
number */ int touch_no; /*touch area number (or zero for none ) */ int coic, 

{ r 
char data [10] ; w 
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if (number > 9 | | number < 0 ) { 

fprintf (stderr, "window number not in range % i", number ) ; 

return (1) ; 

} 

if (window [ number ] .p««NULL) { 

fprintf (stderr, "window not initialized ") ; 

return (2) ? 

) 

/* write line to the window */ 
fontsprt (0, string , window [number] .ulc+5 , window [number] .ulr+14* (l+line_- 
no) ,0, color, 0) ; 

/* set up t.he key-table for touch screen */ 
if (touch_no > 0 &£ touchjio < 61) { 
data[0] « touch_no; 

data[l] « window [ number ] .ulr/ 14+1 ine_no; 

data[2] « window [number ] .ulc/ 8 ; 

data[3] - window [number] .ulr/14+line_no+l ; 

data[4] - strlen (string) +data [2 ] ? 

info_JLoad key(5,data) ;/*set up key table*/ 

) 

return (0) ; 

} /*end wind_line */ 

/******************************* *^ i n t 

wind_close (number) /* close the window */ 

int number; /*window number */ 

{ 

if (number > 9 || number < 0 ) return ( 1) ; 

if (window [number ] .p««NULL) return ( 1) ; /*not initialized */ 

/* replace area */ 

put (window [number] .ulc, window [number] .ulr, window [number] .p, 1) ; 

free (window [number] .p) ; 

return (0) ; 

} /*wind_close*/ 

/★a************ ***********************^ int 

wind_save (number , ulc , ulr, lrc, Irr) /*save a window - dont erase it */ 

int number; /* the window number being created ,from 0 to 9*/ int 
ulc, ulr, lrc, Irr,- /* coordinates (high resolution apa) */ 

{ 

int size; 

if (number > 9 | j number < 0 ) return(l); 
if (Irr > 350 || lrc > 640) { 

fprintf (stderr, "bad window coordinates"); 

exit(l) ; 

) 

window [number] .ulc=ulc; 
window [ number] .ulr=ulr; 

clipsize(ulc,ulr,irc,lrr) ; /* set a clip boundary */ 
/* allocate some memory*/ 
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size«(4+((( (lrc-ulc)*4) +7) /8) * lrr-ulr) ; 
window [number] .p - malloc (size) ; 

if (window [number] .p ™ NULL) { 

fprintf (stderr, "error - window space not allocated 

return (1) ; 

) 

/* save that portion */ 

get (ulc,ulr,lrc,lrr,window[number] .p) ; 

return (0) ; 

) /* end of vind_save */ 
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RULE002 IADVISE-RULES3 



COPYRIGHT SYNTHES (U.S.A.) 1987 
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If a relatively very strong systet is ltccrtant, 
Then 1) there is weakly suggestive evidence (302) that the suggested 
treatment for this orthopedic fracture is not CAST, and 

2) there is weakly suggestive evidence (201) that the suggested 
treatment for this orthopedic fracture is PLATE, and 

3) there is yeakly suggestive evidence 1301) that the suggested 
treatment for this orthopedic fracture is MAIL, and 

4) there is weakly suggestive evidence <l«> that the suggested 
treatient tw this ort#cpe*it fracture is US SCREMS, and 

5) there is weatlj s*W«tive evidence UOli that the suggested 
treatment for this orthopedic fracture is HIRE, and 

6) there is wakly suggestive evidence (201) that the <HI»M 
treatment for this orthopedic fracture is JOINT REPLACEMENT. 



FT* STRONGER 

THEN: TREATMENT '* •CAST* CF 30 AND TREATMENT = "PLATE* CF 20 AND TREATMENT = 
'SAIL 

" CT 30 AND TREATMENT = 'LA8 SCREWS' CF 10 AND TREATMENT * W CF 10 
AND TREATREMT = 'JOINT REPLACEMENT* CF 20 



RULE003 tADVISE-RULESJ 

If in iwediate stability of the systee is important, 
Then 1) there is weakly suggestive evidence (161) that the suggested 
treatment for this orthopedic fracture is X-FIX, and 
I) there is weakly suggestive evidence (30X) that the suggested 
treatment for this orthopedic fracture is not CAST, and 

3) it is definite (1001) that the suggested treatment for this 
orthopedic fracture is not TRACTION, and 

4) there is weakly suggestive evidence (301) that the suggested 
treatient for this orthopedic fracture is not PLATE, and 

5) there is weakly suggestive evidence (171) thai the suggested 
treatient for this orthopedic fracture is NAIL, and 

6) there is weakly suggestive evidence (101) that the suggested 
treatient for this orthopedic fracture is LA6 SCREWS, and 

71 there is weakly suggestive evidence (101) that the suggested 
treitaewt for this orthopedic fracture is WRE, and 

8) there is suggestive evidence (501) that the suggested treatient for 
this orthopedic fracture is JOINT REPLACEMENT, and 

*) there is weekly suggestive evidence (271) that the suggested 
treatient for this orthopedic fracture is OPEN REDUCTION. 

IF: HWEDUfELr-STABLE - «ciTmr 

THEN' TREATMENT = 'X-FIX' CF IE AND TREATMENT != CAST CF 30 *<US TREATMENT 
TSElOr AND TREATMENT !• 'PLATE' CF 30 AND TREATMENT . 'NAIL' OF 
17 AND TREATMENT = 'LA6 SCRE«S« CF 10 AND TREATMENT = R ' ■ AN 
TREATMENT 'JOINT REPLACEMENT* CF 50 AND TREATMENT = 'OPEN REDUCTION 
CF 27 
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If a procedure thai does not disrupt the soft tissue is important, 
Then I) there is suggestive evidence (751) that the suggested treatment for 
this orthopedic fracture is A-FRAME, and 

2) there is veakly suggestive evidence (301) that the suggested 
treaties for this orthopedic fracture is I-FII, and 

3) there is veakly suggestive evidence (301) that the suggested 
treatment for this orthopedic fracture is CAST, and 

4) there is veakly suggestive evidence C30I3 that the suggested 
treateent for this orthopedic fracture is TRACTION, and 

5) tfcere is wall} suggestive evidence (301) that the suggested 
treatiMt for this orthopedic fracture is not PLATE, and 

S) there is veakly suggestive evidence (1711 that the suggested 
treatient for this orthopedic fracture is not HAIL, and 

7) there is veakly suggestive evidence (201) that the suggested 
treateent for this orthopedic fracture is not LA6 SCREWS, and 

8) there is veakly suggestive evidence (171) that the suggested 
treatient for this orthopedic fracture is not HIRE, and 

V there is veakly suggestive evidence (301) that the suggested 

treateent for this orthopedic fracture is not JOINT REPLACEMENT, and 

10) there is veakly suggestive evidence (271) that the suggested 
treateent for this orthopedic fracture is not OPEN REDUCTION 



IF: NON-DISRUPT IN6 

THEN: TREATMENT = 'A-FRAME - CF 75 AND TREATMENT = 'Mil* CF 30 AND TREATMENT 
" * 'CAST' CF 30 AND TREATMENT = 'TRACTION' CF 30 AND TREATMENT != 'PLATE' 
CT 30 AND TREATMENT '= 'MAIL* CF 17 AND TREATMENT != "LAB SCREWS' CF 20 
AND TREATMENT ' = 'MIRE' CF 17 AND TREATMENT !■ 'JOINT REPLACEMENT' CF 
30 AND TREATMENT != "OPEN REDUCTION' CF 27 



RULE005 CADVISE-RULES1 

If a relatively accurate result is important, 
Then 1) there is veakly suggestive evidence (131) that the suggested 
treatient for this orthopedic fracture is I-FIX, and 

2) there is veakly suggestive evidence (02) that the suggested treatment 
for this orthopedic fracture is CAST, and 

3) there is veakly suggestive evidence (171) that the suggested 
treatient foT this orthopedic fracture n not TRACTION, and 

4) there is veakly suggestive evidence (231) that the suggested 
treatient for this orthopedic fracture is NAIL, and 

5) there is veakly suggestive evidence (301) that the suggested 
treatient for this orthopedic fracture is LA6 SCREW, and 

i) there is veaaly suggestive evidence WZJ that the suggested treatient 

for this orthopedic fracture is tllRC, and 
7) there is veakly suggestive evidence (171) that the suggested 

treatient for this orthopedic fracture is not JOINT REPLACEMENT, and 
9) there is veakly suggestive evidence (201) that the suggested 

treatient for this orthopedic fracture is not OPEN REDUCTION, and 
9) there is veakly suggestive evidence (301) that the suggested 

treateent for this orthopedic fracture is PLATE. 
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IF: ACCURATE 

THEN: TREATMENT = 'X-f IX' CF 13 AND TREATMENT = "CA5T' CF 0 AKD TREATMENT !« 
•TRACTIQM 

1 CT 17 AMD TREATMENT = "MAIL" CT 23 AW TREATMENT * 'LAG SCREWS* CF 30 
AND TREATMENT = 'HIRE" Cf 0 AND TREATMENT != "JOINT REPLACEMENT" CF 17 
AND TREATMENT i« 'OPEN REDUCTION* CF 20 AND TREATMENT * "PLATE 1 CF 30 



RULE006 CADVI5E -RULES] 

If a nuaber of procedures can be suggested is not know, 

Then it is definite (1001) that a nuaber of procedures can be suggested. 



IF: FINISHED IS NOTKNOW 
THEN: FINISHED 



RULE008 CADVISE-RULES1 

If a relatively easy prxedure is iaportant, 
Then 1) there is mkly suggestive evidence (30X) that the suggested 
treatment for this orthopedic fracture is CAST, and 

2) there is weakly suggestive evidence (301) that the suggested 
treatment for this orthopedic fracture is TRACTION, and 

3) there is weakly suggestive evidence (101) that the suggested 
treatment for this orthopedic fracture is not ANBLE, and 

4) there is weakly suggestive evidence (1CX) that the suggested 
treataent for this orthopedic fracture is not CONDYLAR, and 

5) there is ueakly suggestive evidence (171) that the suggested 
treataent for this orthopedic fracture is not NAIL. 



IF: EASY 

THEN: TREATMENT * 'CAST* CF 30 AND TREATMENT = 'TRACTION' CF 30 AND TREATMENT 
»■ *AN6LE" CF 10 AND TREATMENT !* •CONDYLAR' CF 10 AND TREATMENT ?= ' 
NAIL* CF 17 



RULE009 [ADVISE-RULES3 

If it is iaportant to quickely detiraine the success of the treataent, 
Then 1) there is weakly suggestive evidence (131) that the suggested 
treataent for this orthopedic fracture is I-FU, and 

2) there is wakly suggestive evidence (101) that the suggested 
treataent for this orthopedic fracture is not CAST, and 

3) there is veakly suggestive evidence (161) that the suggested 
treataent for this orthopedic fracture is not TRACTION, and 

4) there is weakly suggestive evidence C10ZJ that the suggested 
treataent for this orthopedic fracture is PLATE, and 

5) there is weakly suggestive evidence CLOD that the suggested 
treataent for this orthopedic fracture is LA8 SCREWS, and 

6) there is weakly suggestive evidence (71) that the suggested treataent 
for this orthopedic fracture is WIRE, and 

7) there is weakly suggestive evidence (3D that the suggested treataent 
for this orthopedic fracture is JOINT REPLACEMENT. 
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IF: FEEDBACKS 

THEM: TREATMENT = 'X-Fir CF 13 AND TREATMENT != 'CAST" CF 10 AND TREATMENT 
!« 'TRACTION 1 CF 10 AND TREATMENT = ■PLATE 1 CF 10 AND TREATMENT = 'LA6 
SCREWS' CF 10 AND TREATMENT = 'NIRE' CF 7 AND TREATMENT = 'JOINT 
REPLACEMENT' CF 3 



RULE010 [ADV1SE-RULE51 



If a treatient that's versatile in its application is important, 
Then 1) there is weakly suggestive evidence (31) that the suggested treatment 
for this orthopedic fracture is I-FII, and 

2) there is weakly suggestive evidence (72) that the suggested treatient 
for this orthopedic fracture is CAST, and 

3) there is veikly suggestive evidence (71) that the suggested treatient 
for this orthopedic fracture is TRACTION, and 

4) there is weakly suggestive evidence (II) that the suggested treatment 
for this orthopedic fracture is not PLATE, and 

5) there is veikly suggestive evidence (3D that the suggested treatient 
for this orthopedic fracture is not NAIL, and 

6) there is weakly suggestive evidence (3D that the suggested treatient 
for this orthopedic fracture is LAS SCREWS, and 

7) there is weakly suggestive evidence (31) that the suggested treatient 
for this orthopedic fracture is VIRE, and 

6) there is weakly suggestive evidence (31) that the suggested treatient 
for this orthopedic fracture is OPEN REDUCTION. 



IF: VERSATILE 

THEN: TREATMENT = "X-TXI" CF 3 AND TREATMENT = 'CAST' CF 7 AND TREATMENT = - 
TRACTION' CF 7 AND TREATMENT ■= 'PLATE' CF I AND TREATMENT != 'NAIL' CF 
3 AND TREATMENT = 'LA6 SCREWS" CF 3 AND TREATMENT * •HIRE' CF 3 AND 
TREATMENT * 'OPEN REDUCTION' CF 3 



RULE026 CADVISE-RULESl 

If infonation available froi initial systei queries is not known, 
Then 1) call a DOS prograi naied , and 

2) it is definite (1001) that inforution available fro* initial systei 
queries. 



IF: INPUT-READ IS NQTKNOVN 

THEN: DOS-CALL " 'imtit.bat' 18750 AND INPUT-READ 



RULE032 CADVISE-RULESl 



If a procedure which allows for settling to occur is important, 

Then there is weakly suggestive evidence (30Z) that the suggested treatient 

for this orthopedic fracture is DMS. 



IF: ALLOWS-SETTLIW 

THEN: TREATMENT = 'DHS' CF 30 

Rule 6roup BETA-RULES 
No rules defined 
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RULED IS [PATIENT-RULES 3 



If 1) the age of the patient is greater than 70, or 

2) 1) the gender of the patient is FERM.E, and 

2) the age of the patient is greater than 50, or 

3) the nuaber of years the patient is expected to live is < 10, 
Then it is definite (1001) that the aedical age of the patient is OLD. 



IF: VALUE AGE ) 70 OR SEI = TBttLE' AHD (VALUE A6E) > 50 OR LIFE -EXPECT = "< 
10' 

THENi HED-A6E = OLD 



RULE020 [PATIENT-RULES] 



If 1) it is risky to keep the patient convalescent, or 

2) the patient is unreliable and eight not follow a post-op recovery 
plan, 

Then it is definite (1001) that recovery tiae is unavailable for this patient 



IF: CONVAL-RISK OR UNRELIABLE 
THEN: RECOVERY -UNAVAILABLE 



RULEC21 tPATIEMT-RULESI 

If 1) the height of the patient in centiliters is greater than 198, or 

2) the weight of the patient in kilos is greater than 136, 

Then it is definite (iOOI) that the patient is very large. 



IF: VALUE HEI6HT > 198 OR VALUE UEISHT > 136 
THEN: ODD-SIZE 



RULE022 [PATIENT-RULES! 

If I) the height of the patient in centiaeters is less than 199, and 

2) the weight of the patient in kilos is less than 136, 
Then it is definite UOOI) that the patient is not very large. 



IF: VALUE HEIGHT < 198 AM VALUE K1BHT ( 136 
THEN: 1 ODD-SIZE 



RULE025 [PATIENT-RULES! 

If inforaation available frot initial systee queries, 
Then read data froa the file patient. 



IF: INPUT-READ 

THEN: READ* FRAHE 'patient' QUOTE <ASE SEI WEIGHT HEI6HT LIFEOCC) TALLY 
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RULE027 [PATIENT -RULES] 

If the 19c of the patient is less thin IB, 

Tliin it is definite (1001) that the iedicai age of the patient is YOJNS. 



IPs VALUE WE < 18 
THEN: NED-ASE = TOWS 



RULE031 [PATIENT-RULES] 



H the tedical ige of the patient is OLD, 

Then it is definite UWZ) that it is risky to keep the pitient convalescent. 



If: KD-A6E = OLD 
THEM; COtVAl-RlSK 



RUU034 [PATIENT-RULES 3 



If 1) the iedical age of the patient is OLD, or 

2) this patient has been confined to a bed for an extended period, or 

3) bone resorption has taken place due to disuse, 

Then there is suggestive evidence (7SI) that this bone site is osteoporotic. 



IF: HED-A6E = OLD OR BED-RIDDEN OR ATROPHIED 
THEN: OSTEOPOROTIC CF 75 



RULE036 [PATIENT-RULES] 

If the eechanisi of the injury is siifilf fall, 

Then it is definite (1001) that this bone site is osteoporotic. 



IF: fCCHAKISH * "simple fill 1 
THOI: OSTEOPOROTIC 



RULE03B [PATIENT-RULE53 



If information available froi initial syste* queries, 
Then read data frot the file disease. 



IF: INPUT -READ 

THEN: READ* FRAME 'disease' QUOTE (HEALIN6 OSTEOPOROTIC CONVAL-RISK 
SURGERY -INTOLERABLE UNRELIABLE) TALLY 
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WJLE043 [PATIENT-RULES] 

If this bone site is not osteoporotic, 

Then it is definite (1001) that this patient has not been confined to a bed 
for an extended period. 



IF: ! OSTEOPOROTIC 
THEN: ' BED-RIDDEN 



RULED <4 CPATIEHT-IWIES3 



If 1) the age of the patient is less than &O f and 
2) the injury severity score is less than 30, 
Then there is suggestive evidence (701) that the nuifaer of years the patient 
is expected to live is > 10. 



IF: VAIL'E ASE < 60 ANP VALUE ISS < 30 
THEN: UfE-EIKCT = •> tO' CT 70 
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Rule Sroup PRQSCQW-RULES 



RULEOU fPSOSCONS-RULESJ 

If the trauia involves bilateral fractures of wight bearing hones, 
Then there is strongly suggestive evidence (901) that a relatively very 
strong systet is important. 

IF: B1-MEI6HT 

Tmi STRQN6ER CF 90 



RULE013 [PRQSCQIiS-RULES] 

If 1) the eedical age of the patient is Y0UH6, or 

2) surgery is intolerable for this patient, 
Then there is weakly suggestive evidence C25I) that a procedure that does 
disrupt the soft tissue is ieportant. 

IF: REIl-ASE = YOUW OR SURGES*- INTOLERABLE 
THEN: KON-DISRUPTI»S CF 25 



RULED 14 [PRQSC0NS-RULES1 

If 1) 1) there is evidence that this fracture is not inherently stable, and 

2) this is a potentially stable fracture, or 
2) the eedical age of the patient is Y0UK6, 
Then there is suggestive evidence (501) that a relatively accurate result is 
important. 

IF: INHEREHTLY-STABLE IS TH0U6HTHDT AND P0TEMTI ALLY-STABLE OR K0-A6E = YOU* 
THEM: ACCURATE CP 50 



RULE0I5 [PR0SC0HS-RULE5] 

If 1) the nueber of bone fragments is greater than 6, or 

2) surgery is intolerable for this patient, 
Then there is suggestive evidence (701) that a relatively easy procedure is 
iiportant. 



IF: VALUE HUHBEP-PIECIS > t OR SURSER Y- INTOLERABLE 
THEX: EASY CF 70 
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RULE017 CPRQSCOXS-R'JLES] 



If I) the gender of the patient is FEMALE, and 

2) there is evidence that the iedical age of the patient is not DID, 
Then-there is suggestive evidence (501) that a relatively good cosietic 
result is iiportant. 



IF: SEX = 'FEU ALE' AND fO-ASE IS THOUSHTMDT OLD 
THEM: COSHETIC CF 50 



RULEC24 IPRQSC0N5-RULES3 

If 1) the classification for the degree of openness of the fracture is 
greater than 1, or 
2) the daeage to the soft tissue is greater than l f 
Then then is strongly suggestive evidence (901) that a procedure that does 
not disrupt the soft tissue is iiportant. 



IF: VALUE OPEN-CLASS > 1 OR VALUE SOFT-TISSUE- DANA6E > 1 
THEN: WW-DISRUPTIK6 CF 90 



RULE030 (PR0SC0NS-RULES1 

If I) recovery tiw is unavailable for this patient, or 

2) the trauia involves bilateral fractures of «ight bearing bones, 
Then there is strongly suggestive evidence (901) that an mediate stability 
of the systea is iiportant. 



IF: RECOVERY-UNAVAILABLE OR BI-UEISHT 
THEN: IIWEDIATELT-STABLE CF 90 



RULE023 tPROSCDNS-RULESl 



If this bone site is osteoporotic, 

Then there is strongly suggestive evidence (901) that i procedure 
allovs for settling to occur is iiportant. 



IF; OSTEAPflttnC 

THEN: AU:»E-SETTL!*6 CF 90 



WLE035 CPR0SC0NS-RULES3 

If this fracture daiaged an articular surface, 

Then there is strongly suggestive evidence (901) that a relatively accurate 
result is iiportant. 



IF: ARTICULAR 

THEN: ACCURATE CF 90 
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Rule Group TRAUMA-RULES 



RUIE007 [TRAUMA-RULES] 



If information available fro* initial systei queries, 
Then read data froi the file trauia. 



IF: INPUT-READ 

THEM: READ* FRAME "trauia' QUOTE (FRAC-CLASS ARTICULAR INHERENTLY-STABLE 
NUMBER-PIECES POTENTIALLY-STABLE WEISHT-BEARIN6 TREATMENT TREATMENT 
7B£ATH£* T TREATMENT TREATMENT) TALLY 



RULEQ33 [TRAUMA-RULES] 

If inforiation available froi initial systet queries, 
Then read data froi the file tissue. 



IF: INPUT-READ 

THEN; READ* FRAME 'tissue' QUOTE (EXTR NERV RESP ABDM CARD SKIN COUP ISS 
S0FT-TISSUE-DAHA6E OPEN-CLASS) TALLY 



RULE040 ITRAUHA-RULES3 



If the extrenty score froi the health trauia index is less than 4, 
Then it is definite (1001) that the trauia involves bilateral fractures of 
weight bearing bones is not true. 



IF: VALUE EITR < 4 
THEN: ' BI-UEISHT 



RULE041 [TRAUMA -RULES 3 

If 1) the patient is very large, or 

2) the injury severity score is greater than 30, 
Then there is suggestive evidence (601) that a treatient that's versatile in 
its application is uportant. 



IF: ODD-SIZE OR VALUE ISS > 30 
THEN: VERSATILE CF 60 
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RULE042 ITRAUM-RULES] 

If t) the injury seventy score is greater than 30, or 

2) the classification for the degree of openness of the fracture is 
greater than 1, 

Then it is definite 11 ODD that the Mchamu of the injury is high energy. 



IF: VALUE rSS > » » WLtE OPtt-CLASS > t 
THEN-, KCHM1S* = energy 1 



User defined Functions 



CLOSE-TEMP [FUNCTIONS] 

TWKSLATIW: (this doses the temporary file) 
TTPE: ACIO* 
TCTLATE: (VALUE) 
SOURCE: (LAMBDA 
(FILE) 

(WrTE "last line ir. hie ' FILE) 
(CLOSE-OUTPUT -PORT FILE)) 

OPEN-TEHP CFUNCTIONS] 

TEHPLATE: (TEIT) 
TYPE: EXPRESSION 

TRANSLATION: (open a temporary file for output) 
SOURCE: (LAHBDA 
(TED 

cqpex-3ut*ut-file tcui; 
wr:te-tesf [functions] 



TEHPLATE: (VALU VALUS) 
TYPE,* actio* 

TRAK$«-A"'0*: Wute out a test hit to a 
SCURCTv '1ARBDA 

< r lLE ST* 1 
(BE61N 
(WRITE OUTP FILE) 
(HEMLINE FILE))) 
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Parameter 6roup ADVISE-PARIfS 



ACCURATE [A0VISE-PARHS3 

TRANSLATION: <a relatively accurate result is important) 
DEFAULT; (NO) 
TYPE: YES/NQ 
USED- BY: RULE005 
UPDATED-BY: RULE014 RULEQ35 

ALLWS-SETTLIKS tAWISE-PMWSl 



TRANSLATION: (a procedure which ailws for settling to occur is important 
TYPE: YES/NO 
USED-BY: RULE032 
UPDATED-BY: RULEQ33 

COSMETIC CADVISE-PARNS3 

TRANSLATION Ca relatively food coseetxc result is iiportant) 
DEFAULT: (NO) 
TYPE: YES/NO 
UPDATED-BY: RULE017 

EASY tAOVISE-PARHS} 

TRANSLATION: (a relatively easy procedure is important) 
TYPE! YES/NO 
DEFAULT: (NO) 
USED-BY; RULE008 
UPDATED-BY: RULE015 

FEEDBACKS CAOVISE-PARHS) 

TRANSLATION: (it is important to quukely deteraine the success of the 

treatment) 
DEFAULT: (I 'TRUE) 
TYPE: YES/NO 
USED-BY: RULED 09 

FINISHED HWISE-PAMSJ 



TRANSLATION: (a nuiber of procedures can be suggested) 
ACTIVE-VALUE: (DO-ALL 

(SET-VALUE OPENED 
(E 

(OPEN-TEHP •teiper.txf))) 
(WITE-TEHP 

CVALUE-OF OPENED) 

(VAL FRAME TREATMENT N0TRACEFL6)) 
(CLDSE-TEHP 

(VALUE-OF OPENED) ) 
(MS-CALL " "debrief. bat' 18740)) 

TYPE: tES/KO 
USED-BY: RULE006 
UPDATED-BY: SREFRARK RULE006 
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MEDIATELY-STABLE CAD VISE-PAWS! 

TRANSLATION: (in i wed i its stability of the systei is iiportant) ' 

type: yes/no 
default: (ho) 
used-by: rule003 

UPDATED-BY: RULE030 SfcEFKAR* 
INPUT-READ [A0VISE-PARHSI 

TRANSLATION: (information available froi initial systei queries) 
TYPE: YES/NO 

USED-BY: RULE026 RULE007 RULE025 RULE03B RULE039 
UPOATED-BY: SREfflARR RULE026 

NON- DISRUPTING [ANISE-PARKS! 

TRANSLATION: (a procedure that does not disrupt the soft tissue is iiportant 

) 

DEFAULT: (NO) 
TYPE: YES/ NO 
USED-BY: RULED04 
UPDATED-BY: RULE013 RULE024 

STRONGER CADVISE-PARHS] 



TRANSLATION: (a relatively very strong systei is iiportant) 

DEFAULT: (NO) 
TYPE: YES/NO 
USED-BY: RULEC02 
UPDATED-BY: RULE011 

TREATMENT CA5VISE-PARHS3 



TRANSLATION: (the suggested treatment for this orthopedic fracture) 
LE SAL VALUES: TEXT 
TYPE: MULTIVALUED 

UPDATED-BY: RULED 10 RULEW5 RULEOW RULE004 RULE002 RULE003 RULE032 KULEOOB 
RULE007 

VERSATILE CAD VISE-PARRS] 



TPAN5.A T I0N: (a treatient that's versatile in its application is iiportant) 
DEFAULT: (NO) 
TYPE: YES /NO 
USED-BY: RULEC1C 
UPDATED-BY: RULE041 
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Parameter Group TRUETYPES 



ADVISE tFRAHETYPESJ 

TRANSLATION: (The treatment procedure suggestion) 

IDENTIFIER: 'ADVISE-' 

RULISROUPS: (ADVISE-RULES) 

PARFI6R0UP: ABVIS6-PARRS 

GOALS: (INPUT-READ TREATS flHW) 

OFFSPRIK: (PROSCONS) 

PATIENT tFRAHETYPESl 



TRANSLATION: (the personality of the patient) 
PRQMPTEVER: (patient factors being considered) 
PARENTS; (PROSCONS ADVISE) 
PARHBROUP: PATIENT-PARRS 
RULE6R:UP5: (PATIENT-RULES) 
IDENTIFIER; "PATIENT-* 



PRDSCDNS CFRAMETYPES) 

TRANSLATION: (the pros and cons «Mch will determine the treatment of the 
fracture) 

PR n flPTEVER: (treatment factors being established) 

Sksi (S : RC«6ER IMMEDIATELY-STABLE NON-DISRUPTING ACCURATE EASY VERSATILE 

FEEDBACKS COSMETIC) 
PARENTS: (ADVISE) 
PARM6R2UP: PROSCONS-PARNS 
RULESRQUPSi (PRCSCONS-RULES) 
IDENTIFIER: 'PROSCONS-' 
0FFSPRIN6: (TRAUMA PATIENT) 



TRAUNA EFRMETYPESI 



TRANSLATION: (the personality of the trauea) 
PRCWF'EVER: (trauaa factors being considered 
PARENTS: (PROSCONS ADVISE) 
PARM5RCUP: TRAUMA-PARRS 
RULE6R0UPS: (TRAUMA-RULES ^ 
IDENTIFIER: * TRAUMA-' 
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Parameter Sroup PATIENT -PARKS 



A6E CP AT I EXT -PARKS 3 

TRANSLATION: (the age of the patient) 
PWMPT; YES 

EXPECT: POSITIVE-NUMBER 

RAN6E: (1 Ufl) 

TYPE: SIN6LEVALIO 

U5ED-BY; RULE027 RULE019 RULE 04 4 

UPDATED-B?: MLE025 

ATROPHIED CPATIENT-PARBS1 

TRANS'Jf IW: (bone resorption has taken place due to disuse) 
TYPE: YES /NO 
USED-BY: RULEQ34 

BED-RIDDEN tPATIENT-PARHS] 

TRANSLATION: (this patient has been confined to a bed for an extended period 

) 

PROMPT: YES 
TYPE: YES /NO 
USEB-9Y: RULE034 
UPDATED-BY: RULE043 

CONVAL-RISK IPATIENT-PARHS} 



TRANSLATION: (it is risky to keep the patient convalescent) 

PP3NPT: YES 
TYPE: YES /NO 
USED-BY: RULE020 
UPDAT3-BY: RULE03I RULE038 

HEAL I MS [PATIENT -PARKS) 

TRANSLATION: (soft-tissue healing is an irea of concern for this patient) 
PROMPT: (no) 
TYPE: YES /NO 
UPOATED-BY: RULE938 

HEI6HT :?ATIEMT-PARJ1S3 



TRANSLATION: (the height of the patient in centneters) 
PROMPT: YES 

ElfECT: positive-number 

RAN6E: (30 230) 
TYPE: SIN6LEVALUED 
USED-BY: RULE021 RULEC22 
UPDATED-BY: RULE025 
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LIFE-E1PECT EPHTIEHT-PAMS] 

TRANSLATION: (the nuibtr of years the patient is expected to live) 

PROMPT: YES 

EIPECT: C< 10' ■> 10') 

TYPE: SMfiLEVALUED 

USE3-8Y: RULE019 

OPMTEB-BY: RULE044 

LIFtOCC IPA71MT-PAWS] 

TRANSLATION: (the general lifestyle or occupation of the patient reflecting 
use of the fracture site) 

PROMPT: YES 

TYPE: SIN6UVAU1EB 

EIPECT: ('ACTIVE- 'SEDENTARY* 'VIGOROUS') 
UPDATED-BY: RULE025 

NAME [PATIHT-MWJ 

TRANSLATION: (the naee of the patient) 
PROMPT: YES 
TYPE: SINSLEVAL'JED 

UNRELIABLE CPATIEMT -PARKS! 

TRANSLATION: (the patient is unreliable and eight not follow a post-op 
recovery plan) 

PROMPT: YES 

CERTAINTY-FACTOR-RANSE: UKNQWH 
TYPE: YES/NO 
USED-8Y: RULE020 
QPDATED-BY: RULE038 

UEI6HT CPATIENT-PARHSj 

TRANSLATION: (the wight of the patient in kilos) 
PROMPT: YES 

EIPECT: POSITIVE-UMBER 
RANGE: (5 180) 
TYPE: SIN6LEVAL:i: 
USED-BY: RULE021 RULE022 
UPDATED-BY; RULE025 
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Par Meter 6roup PROSCONS-PARHS 



ARTICULAR [PRBSCDNS-PARHSl 

TRANSLATION! (this fracture daiaged an articular surface) 
TYPE: YES/NO 
USID-IY; RULE035 
OPMTO-EY: C^tOC? SROTAR* 

BI-MEI6HT :PR0SCWS-PMU!S1 



•TRANSLATION: (the trauta involves bilateral fractures of wight bearing 
bones) 

PROflPT: YES 
TYPE: YES/NO 
USED-BY: RbtEOli RULE030 
UPDATED-BY: RULE040 

INHERENTLY-STABLE CPR0SC0NS-PARNS3 



TRANSLATE: (this fracture is inherently stable) 
TYPE: YES /NO 
USEIi-BY: RULED 14 
UPDATED-BY: RULE007 SREFNARK 

ISS CPROSCONS-PAWS] 

TRANSLATION: (the injury severity score) 
TYPE: SIN6LEVALUED 
USED-BY: RULE041 RULE042 RULE044 
UPDATED-BY: RULE039 

NECHANISN CPR0SCWS-PARNS1 

TRANSLATION: (the techaius* of the injury) 
PROHPT: YES 

EXPECT: fsiiple fall - 'low energy' 'high www 1 ) 

TYPE: SIN6LEVALUED 
USED-BY: RULEG36 
UPMTED-BY: KULE042 

SE&-A6E IMBKONS-PARHS* 

TRANSLATION! (the iedscal age of the BitietrtJ 
TYPE: SINSLEVALUED 
EXPECT: (Y0UN6 OLD) 

USED-BY: RULE013 RULEC31 RULE014 RULE017 RULE034 
UPDATED-BY: RULE027 RULE01S 
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HWKR-PIECES CPRQSCONS-PARAS] 

TRANSLATION: (the nuiber of bone fragments) 
TYPE: SIN6LEVALJED 
USED-BY: RULEQ15 
UPBATED-SY: RULE007 SRETHARK 

ODD-SIZE CPRQSCOKS-PARHS] 

TRANSLATION; (the patient is very large) 
PROHPT: YES 
TYPE: YES/NO 
USED-BY: RULE041 
UPBATED-BY: RULE021 RULE022 

OPEN-CLASS [PfiCSCONS-PARBSJ 



TRANSLATION: (the classification for the degree of openness of the fracture) 
PROHPT: YES 

EXPECT: PDSITIVE-NtiflBER 
TYPE: SIN6LE VALUED 
RANGE: (0 3) 
USED-BY: RULE024 RULE042 
UPQra-BY: RULE039 

DSTEOPOWT ] C I PROSCONS-P ARMS! 



TRANSLATION; (this bone site is osteoporotic) 

PROMPT; YES 

TYPE: YES/NO 

DEFAULT: (YES -30) 

USED-BY; RULE033 RULE043 

UPDATED-BY: RULE036 RULE038 RULE034 

POTENTIALLY-STABLE CPRGSC3NS-PARHS3 



TRANSLATION: (this is i potentially stable fracture) 
TYPE: YES/NO 
USED-BY: RULE014 
UPOATEC-BY: RULE007 SRErKARK 

* 

RECOVERY-UNAVAILABLE CPR0SC2NS-P4RKS3 



TRANSLATION: (recovery tie* is unavailable for this patient) 
DErCT: (NC) 
TYPE; YES /NO 
USED-BY: RULEQ30 
IffDATED-BY: RULE020 
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SEX CPROSCQNS-PARRS] 

TRANSLATION: (the gender of the patient) 

WQAPT: YES 
EXPECT: (MALE FESALE) 
TYPE: SIN6LEVALUED 
USED-BY: WLE0I7 RULE019 
UPDATED-8Y: RULE025 

SOT T-TI 5SUE-DABA6E [PRO SCONS-PARKS 3 



TRANSLATION: (the dawge to the soft tissue) 

PROMPT: YES 

RANGE: (0 3) 

EXPECT: POSITIVE-NUHBER 

TYPE: SINSLEVALUED 

USED-BY: RULE024 

UPDATED-BY: RULE039 

SURGERY- INTOLERABLE t PROSCONS-PARKS 3 



TRANSLATION: (surgery is intolerable for this patient) 
PROUPT: YES 

CERTAINTY-FACT0R-RAN6E: POSITIVE 
TYPE: YES/NO 
USED-BY: RULE013 RULE015 
UPDATED-BY: RULE038 

BEI6HT-BEARIN6 tPRQSCONS-PARHSI 

TRANSLATION: (this is a veight bearing bone) 
TYPE: YES/NO 

UPDATED-BY: RULE007 SRE. r rlARK 
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Paraaeter Sroup TRAUNA-PARHS 



ABDR [TRAUHA-PARRS1 " ' 

TRANSLATION: (the abdounil cavity score froa the health trauaa index) 
TYPEj SIN6LEVALUEC 
UPDATED-BY; RULE039 



CARD CTRAUHA-PARHST 

TRANSLATION: (the cardiovascular systea score froa the health trauaa 
TYPE: SIX6LEVAIU£D 
u'PDATED-BY: RUIE03S 



COUP CTOUHA-PARMS3 

TRANSLATION: (the coapl icat ions score froa the health trauaa indei) 
TYPE: SIN6LEVALKB 
UPDATED-BY: RULE039 



EITR (TRAUMA-PARKS! 

TRANSLATION: (the extreaity score froa the health trauaa indei) 
TYPE: SIN6LEVALUEQ 
USED-BY: RULE04C 
UPDATED-BY: RULE033 



FRAC-CLAS5 [TRAUMA-PARRS 3 

TRANSLATION: (the classification code of the fracture) 
TYPE: 51N6LEVALUED 
UPOATED-BY: RULE007 SREFKARK 



NERV CTRAUHA-PARHS1 

TRANSLATION: (the nervous systea score froi the health trauaa 
TYPE: YES /NO 
UPDATED-BY: RULE039 



RESP ITRAUHA-PARRS: 

TRANSLATION: (the respiratory systet score froa the health trauaa ini 

TYPE: S IKS DEVALUED 
UPDATED-BY: RULEQ39 

SKIK iTRMJhVPARKS} 

TRANSLATION: (the 5km and subcutaneous tissue score froa the health 
index) 

TYPE; SIN6LEVALUED 
UPDATED-Bt; RULE 039 
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Systet piriieters 



ADVISE-PARWS [PARN6RQUPS] 



VALUE* ACCURATE ALLOUS -SETTLING COSHETIC EASY FEEDBACKS FINISHED 

IfiHEDIATELY-STABLE INPUT-READ N0N-DISRUP T IN6 STR0N6ER TREATMENT 
VERSATILE 

FRAHETYPES IPAR*KW«1 



VALUE: PROSCQHS TRAIWA PATIEKT ADVISE 
PATIENT-PARKS tPARHSRDUPS] 

VALUE^ ASE* ATRCPH IED BED-RIDDEN CQNVAL-RISK HEALIN6 HEIGHT LIFE-EXPECT 
LIFEOCC NAKE UNRELIABLE MEISHT 

PR0SCON5-PAWS IPARH6WUPS3 

VALUE- ATICULAR BI-UEI6HT INHERENTLY-STABLE ISS BECHANISH HED-A6E 

' NUMBER-PIECES ODD-SIZE OPEN-CLASS OSTEOPOROTIC POTENTIALLY-STABLE 
RECOVERY- JNAVA I L ABLE SEX SDFT-TISSUE-DAfiASE SUR6ERY- INTOLERABLE 
HEISKT-BEARIN6 

TRAUHA-PARKS CPARH6RQUPS] 

VALUE: ABM CARD COUP EXIT? FRAC-CLASS NERV RESP SKIN 



EP 0 303 930 A2 



Systei parueters 



ADVI5E-RULES [RULESROUP53 



SVAL: (THE ADVISE) 

rum-, (advise) 

VALUE: RULE002 RULE003 RULE004 RULE005 RULEW6 RUIEOOB RULE009 RULEOiO 
RULE02S RULE032 

fE7A~RULES CRUIEBRDUPSJ 



VALUE: 

PATIENT-RULES CRULE5R0UPS3 

FRA«E: (PATIENT) 
SVAL: (THE PATIENT) 

VALUE: RULE019 RULE020 RULE021 RULE022 RULE025 RULE027 RULE031 RULE034 
RULE036 RULE038 RULE043 RULE044 

PRQSC3NS-RULES [RULE6RQUP5] 



FRAHE: (PRCSC3NS) 
SVAL: (THE PROSCONS) 

VALUE: RULEOU RULE013 RULE014 RULE015 RULE017 RULE024 RULE030 RULE033 
8ULE035 

TRAIMA-RULES [RULEGRQUPS3 



FRAME: (TRAWA) 
SVAL: (THE TRAUMA) 

VALUE: RULE007 RULE039 RULE040 RULE041 RULE042 
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Vanibles 

DOHA I M C VARIABLES I 
VALUE: "Orthopedic Advisor' 
OPENED [VARIABLES! 
VALUE: 0 
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79,33B1 , XXXXXDCS 
79,33B2.XXXXX+ BUT RES 5 PLATE 
79 , 33B3 • XXXXXLAG SCREWS 
79,33C1 .XXXXX+ CONDYLAR PLATE 
79,33C1 .XXXXXDCS 
79,33C2.XXXXX+ BUTRESS PLATE 
79, 33C2. XXXXXDCS 
79 , 33C3 .XXXXX+ BUTRESS PLATE 
79,33C3.XXXXX2 BUTRESS 
79,33C3.XXXXXKNEE REPLACEMENT 
79 , 33C3 • XXXXXX-F I X 
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139,3 




Femur 


139,31 




Proximal Femur 


139, 21A 




Trochanteric Region 


139,31A1 

i nt act 
139, 31A1 . 


1 


Pertrochanteric w/ single 
above or through lesser 


139, 31A1 . 


•-i 


i mp acted 


139, 31 Al . 


3 


w/ 3rd posterior fragment 


139, 31A2 
al ly 

139,31A2, 


1 


Pertrochanteric with 2 or 
w/o posterior fragment 


139,31A2. 


2 


w/ 4th poster osuper i or 


139,31A2. 


3 


comminut i on 


139, 31 A3 




i nter trochanter i c , 1 ater al 


1 w w , 31 A3 ■ 


1 


oblique fracture line 


139, 31A3. 


2 


transverse fracture line 


139,31A3. 




comminuted w/ 3rd third 


139, 31B 




Femoral Neck 


139, 31B1 




femoral neck in abduction 


129,2191. 


1 


posterior greater than 20 


139,31*1. 




posterior displacement 10 


129,3151. 




posterior displacement 


139, 3151 




femoral neck w/ vertical 


139,31B2. 


1 


basilar neck 


139, 31B2, 


■—■ 


medial neck 


129, 31 B2 


3 


subc api tal 


129,21B3 




femoral neck in adduction 



RESERVED 

extension into medial cortex, lateral 
trochanter 

more fracture lines extending medi 

fragment 

and medial cortices fractured 
(reverse fracture ) 

medial fragment 

degrees 
to 20 degrees 
under 10 degrees 
fracture line 
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139,31B3. 1 

139, 31B3.2 

139, 31B3.3 

139,31C 

139, 31C1 

139,31CJ.l 

139,31Cl-2 

139, 31C1.3 

139,3102 

139,3102- 1 

139,3102.2 

139,3102.3 

139,31C3 

139, 31C3. 1 

139,3103.2 

139,3103-3 

139,32 

139, 32 A 

139,32A1 

139, 32A1. 1 

139,32A1.2 

139,32A1.3 

139,32A2 

139,32A2. 1 

139,32A2.2 

139, 22 A2. 3 

129, 32 A3 



moderate varus 
moderate translation • 
great displacement 
Femoral Head 

seperation only 
torn ligament 
small fragment and torn 

large fragment and torn 
rotation only 

poster io-superi or 

anterio- superior 

super i o-l ater al 

comb i nat i on 

rotation and seperation 

seperation and neck 

rotation and neck 

Femoral Shaft 

Simple Fracture 

Simple spiral 

subtrochanteric 

mi dshaf t 

distal shaft 

Simple oblique 

subtrochanteric 

mi dsha f t 

distal shaft 

Simple transverse 



1 i gament 
1 i gament 



fracture 
fracture 
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133, 32A3. 1 subtrochanteric 

133,32A2. 2 midshaft . 

139,32A3.3 distal shaft 

133, 32B Chip 

139,3281 torsional intact 

1 39 ? 32B 1 . 1 subtrochanteric 

139,32B1.2 midshaft 

139 r 32B1.3 distal shaft 

139,32B2 flexion intact 

139, 32B2. 1 subtrochanteric 

1 39 , 32B2. 2 mi dsha f t 

133,3282.3 distal shaft 

139,3253 fragmented 

139.3283.1 subtrochanteric 

1 39. 3282 . 2 midshaft 
139,32B3.3 distal shaft 
139,320 Complex 
139,3201 spiral comminuted 

139.3201.1 2 intermediary fragments 

139.3201.2 3 intermediary fragments 

139.3201.3 more than 3 intermediary fragments 
133,32C2 complex bifocal 

139,3202.1 one intermediary fragment 

133,32C2.2 one intermediary fragment and a chip 

139,3202.3 two intermediary fragments 

139,3203 non spiral comminuted 

139,3203.1 2-3 intermediary fragments 
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139,32C3.2 
139, 32C2.3 
133,33 
139, 33A 
139, 33 A 1 
139 P 33A1.1 
139,33A1.2 
139, 33 A 1.3 
139,33A2 
139,33A2. 1 
139, 33 A2. 2 
139,33A2.3 
139, 33 A3 
139, 33- A3. 1 
139, 33A3.2 
139, 33 A3. 3 
139,338 
139,33B1 
139,3391. 1 
139,3391.2 
139,3361.3 

139,3392 
139,3392. 1 
129,3392.2 
139, 33B2. 3 



local comminution 
extended comminution 
Distal Femur 
Extrarticular 
Si mpl e 

epicondylar chip 

obi i que 

transverse 

with a chip 

1 large fragment 

laterally fragmented 

medially fragmented 

comminuted 

2 large fragments 
metaphysis comminuted 
diaphysis and metaphysi 
Partial articular 
uni condylar lateral 
sxmpe intercondylar 
simple condylar 
multiple fragments 
uni condyl ar medial 
sample intercondylar 
simple condylar 
multiple fragments 
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139,33B3 


frontal 






133,33B3. 1 


anter io-lateral 


osteochondral 




139, 33B3.2 


unicondiyar posterior 






139,33B3. 3 


bicondylar posterior 






133, 330 


Total articular 






139,33d 


intercondylar simple with 


supr acondyl ar 


simple 


139, 3301. 1 


T or Y slightly displaced 






1 39 , 33C 1 . 2 


T or Y very displaced 






1 39 . 33i"; 1 . 3 


T epiphysis 






133,3302 


intercondylar simple with 


supr ac ondyl ar 


mul tipl 


139, 3202. 1 


1 supercondlyar fragment 






139,3302.2 


fragmented on one side 






139,3302.3 


commi nuted 






139,3303 


complex multiple 


fragments 




139,3303. 1 


sole intermediate 


articul ar fragment 


129,3303.2 


comminuted epiphysis - 


metaphysis 




139, 3303.3 


comminuted epiphysis - 


metaphysis - 


di aphysi 



fragments 
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AOPC • BAT 

echo off REM this routine starts PCPLUS , queries user for options: 

REM developement environment? 

REM data to ram disk? 

REM touchscreen or cursor ? 

rem data and consulting on ram disk? 

REM 

££Jf ***************************************** 

REM no switches or just an s means a simple run of the program 
REM remove old error file erase error *tmp 

if %1A««A goto simple if %l««s goto simple if %1«*S goto simple 
if %5A~A goto err if %1-«C goto choicel 

echo DEVELOPS 

set pcpath=c : \pcplus 

set pcdrive«c: 

set datapath«c:\btrieve\orthobas 

set datadrive«c: 

set dafpath-c:\btrieve\orthobas 

set dafdrive=c: 

set btpath«c : \btrieve 

%pcdrive% 

cd %pcpath% 

copy c:\btrieve\orthobas\initit.bat initit.bat » error .tap 

copy c:\btrieve\orthobas\debrief.bat debrief.bat » error. tmp 

goto choicell : choicel 

echo Consult 

set pcpath*c:\oarun 

set pcdrive*c: 

set dafpath«c:\oarun 

set dafdrive=c: 

set btpath=c:\oarun 

set datapath«c : \oarun 

set datadrive»c: : choicell if NOT %2«»C goto choice2 
echo converge 

command /c c:\oarun\converge.bat :choice2 if NOT %3==F goto 

choice3 

echo full use of ram disk 
set pcpath^e : \pcs 
set pcdrive*e: 
md *pcpath% » error. tmp 

copy c:\oarun\*.* %pcpath% » error. tmp :choice3 REM 
***************************************** if %4™C set interac=%4 if 
%4 S! =C echo cursor if %4»T echo touchscreen if %4™T set interac=%4 

REM start mouse driver *pcpath%\mousesys » error. tmp 
%pcpath%\m scheme » error. tmp REM 

******************************************* if NOT %5==R goto choice4 
echo ram disk used for procedure data 
set datapath«e:\pcs 
set datadrive=e: 
%datadrive% 
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md %datapath% >> error. tmp :choice4 REM 
******************************************** :runit %pcdrive% cd 
%pcpath% pause pc.bat ext goto end 

tsimple REM ******************************************** REM this is 
for no extra memory, ram drives or touchscreen, cursor is used echo 
SIMPLE USAGE cd c:\oarun c: set interac«S REM start mouse driver 
aousesys » error. tmp m_scheme » error. top pc.bat goto end 

:err echo the correct format is •aopc' (simple usage - with 

cursor J echo or 'aopc v w x y z 1 echo where v is a 

C(consult) or D(develope) or S (simple) or a ? for this listing echo 
w is a C (component upgrade) or K(no) echo x is an F(full 

consulting on ram disk ) or N(no) echo y is a C( cursor ) or 

T (touchscreen) echo 2 is a R(ram disk for data) or N(no) :end 

XNITIT.BAT 

echo off 

REM batch file for initial infromation gathering 

REM this program creates files in the pcpath directory, 

REM to be used by PCPLUS there 

REM the system parameter interac determines touchscreen or REM not (C) 
REM instead of touch-screen if *interac%*«S goto simple if 

%interac%««s goto simple REM complex directory switching 
%btpath%\btrieve /P:1024 »error.tmp 

%dafdrive% cd %dafpath% 

if %interac%~C goto cursor if %interac%**c goto cursor 

initial.exe goto after : cursor initcur.exe goto after : after copy 
trauma. rd *pcpath%\trauma.rd » error. tmp copy patient. rd 
%pcpath%\patient.rd » error. tmp copy tissue. rd %pcpath%\tissue.rd >> 
error. tmp copy disease. rd %pcpath%\disease.rd » error. tmp 
%btpath%\butil -stop %pcdrive% cd *pcpath% 

goto end REM here everything is on one directory, cursor us:?*? ;sirpl= 
btrieve /P:1024 »error.tmp initcur.exe butil -stop goto end 

:end Rem finished with batch file 

FIHAL. BAT 

echo off REM bath file for final infromation gathering 
if %interac%==S goto simple if %interac%«*s goto simple 

%btpath%\btrieve /M: 64/P: 512/B: 64 » error. tmp %datadrive% cd 
%datapath% copy %pcpath%\temper.txt temper.txt » error. tmp copy 
%pcpath%\trauma.rd trauma. rd » error. tmp copy %pcpath%\pati?nt .rd 
patient. rd » error. tmp copy %pcpath%\tissue. rd tissue. rd >> 
error. tmp copy %pcpath%\disease.rd disease. rd » error. tmp 

copy %daf pa th% \procedur.dat procedur.tmp » error • tmp 
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if %interac%— c goto cursor if %interac%==c goto cursor 

%dafpath%\f inal.exe goto after tcursor %dafpath%\f incur.exe goto after 
: after %btpath%\butil -stop %pcdrive% cd %pcpath% goto end 

: simple REM simple usage, cursor, no extra memory or directories 
btrieve /M: 64/P: 512/B: 64 » error. tmp copy procedur.dat procedur .tmp >> 
error. tmp fincur.exe butil -stop goto end 



end REM finished with final batch file 
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database: PRl 

CI, CARDIOVASCULAR 

61, CARDIOVASCULAR 

61, CARDIOVASCULAR 

61, CARDIOVASCULAR 

61/ CARDIOVASCULAR 

61, DIGESTIVE 

6 i, ENDOCRINE 

61, ENDOCRINE 

61, INTEGUMENTARY 

61, INTEGUMENTARY 

61, LYMPHATIC 

61, LYMPHATIC 

61, MUSCULAR 

61, MUSCULAR 

61, NERVOUS 

61, NERVOUS 

61, NERVOUS 

61, NERVOUS 

61, NERVOUS 

61, NERVOUS 

61, NERVOUS 

61, NERVOUS 

61 , REPRODUCTIVE 

61, RESPIRATORY 

61, RESPIRATORY 

61, RESPIRATORY 

61, RESPIRATORY 

61, SKELETAL 

61, SKELETAL 

61, SKELETAL 

61,URINARY 



VASC INSUFFICIENCY 
ANEMIA 

ARTS8 1 AL S CLERO 6 1 S 

ORGAN TRANSPLANT 

OTHER 

OTHER 

DIABETES 

OTHER 

MELENOMA 

OTHER 

LYMPHOMA 

OTHER 

POLIOMYELITIS 

OTHER 

PARALYSIS 

STROKE 

POST POLIO 

MENINGITIS 

ALCOHOLIC 

ALZHEIMERS 

fu.i nonkh:: 

OTHER 

OTHER 

HEAVY SMOKER 
TUBERCULOSIS 
EMPHYSEMA 
OTHER 

PRIMARY TUMOR 

METASTISIS 

OTHER 

OTHER 





V 


o 


50 


0 . 




ft 

V 


n 

V 


50 




A 
V 


ft 

V 


ft 






*> ft 




ft 


A 

w 


ft 


ft 


ft 
u 


ft 

u 


ft 

w 


0 . 


ft 


ft 


ft 


ft 


ft 


ft 


ft 

w 


ft 

w 




n 


Q 


ft 


ft 


ft 


ft 


«S w 


ft 


ft 

w 


ft 


0 . 


0 


0 


0 


0 


0. 


0 


0 


0 


50 


0. 


0 


0 


0 


0 


0. 


0 


30 


0 


0 


0. 
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database: HTRAUMA 
61, ABDOMINAL 
61, ABDOMINAL 
61, ABDOMINAL 
61, ABDOMINAL 
61 /ABDOMINAL 
61, ABDOMINAL 
61, CARDIOVASCULAR 
61, CARDIOVASCULAR 
61, CARDIOVASCULAR 
61, CARDIOVASCULAR 
6 1 , CARD I 0 VASCULAR 
61, CARDIOVASCULAR 
61, CARDIOVASCULAR 
61, COMPLICATIONS 
61, COMPLICATIONS 
61, COMPLICATIONS 
61, COMPLICATIONS 
61, COMPLICATIONS 
61, COMPLICATIONS 
61, COMPLICATIONS 
61, EXTREMITIES 
61, EXTREMITIES 
61, EXTREMITIES 
61, EXTREMITIES 
61, EXTREMITIES 
61, EXTREMITIES 
61, NERVOUS 
61, NERVOUS 
61, NERVOUS 
61, NERVOUS 
61, NERVOUS 
61, NERVOUS 
61, NERVOUS 
61, RESPIRATORY 
61, RESPIRATORY 
61, RESPIRATORY 
- 61, RESPIRATORY 
61, RESPIRATORY 
61, RESPIRATORY 
61, SKIN 
61, SKIN 
61, SKIN 
61, SKIN 
61, SKIN 
61, SKIN 
61, SKIN 



No injury 

mild abdominal wall, flank or back pain 
acuta flank, back or abdominal pain 
one of;minor liver, sm bowel,spleen ,.. 
2 major: rupture 1 iver, bladder , colon, . , 
2 severe: crush liver, major vascular 
No injury 

< 10% blood volume (bv) loss 

10-20 % bv loss, dec. skin perfusion 
20-30 % bv loss, urine (>30ee) tamponade 
30-40 % bv loss, urine ( <10cc ) tamponade 
40-50 % bv loss, restless, agitated, coma 
50 % bv loss, coma, cardiac arrest 
No complications 

aubq. wound infect, atelectasis tmp <38.5 
major wound infect, atelectas is tmp >38.S 
i .p. abscess, pneumonia, anuria, oliguria 
septicemia, empyema, renal failure 
above w/ low bp, gi bleed, reap arrest 
above > 6 wks, coma > 6wks 
No injury 

Minor sprns and £xs no long bones 
simple fxs: not femur or pelvis 
simple femur or pelvis, multiple moderate 
fxs two ma jox, unstable pelvis, limb loss 
fxs two severe, multiple major 
No injury 

head trauma w/ or w/o scalp lactns 

head trauma w/ brief coma (<15'J 

cerebral inj. w/ coma (+15' >, skull fx 

cerebral inj. w/ coma <+60*),neuro fdgs 

as above w/ dilated fixed pupils 

as above w/ no response up to 24 hrs 

No injury 

Chest discomfort 

Simple rib or sternal fracture 

1st or multi-rub fx, hemothorax 

open chest wounds, flail chest 

acute rasp, failure (cyanosis) 

No injury 

< 5 % burn, abrasions, contusions, lacer . 
5-15% burn, extensive contus ions,avulsns 
15-30% burn, avulsions 

30-45% burn, avulsions entire leg or arm 
45-60% burn (3rd degree) 
60% + burn (3rd degree) 
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• database 

25,31M . i 

25,31A1.2 

25,31*1.3 

25, 31A2.1 

25,31A2.2 

25,31A2 . 3 

25,31X3.1 

25,3lA3.2 

25,31A3.3 

25,31B1.1 

25,3111.2 

25,3161.3 

25,3lB2.1 

25,3112.2 

25,31B2.3 

25,31B3.1 

25,3ina.2 

25,31B3.3 

25,3inl .1 

25,31C1.2 

25,31C1 .3 

25,31C2.1 

25,31C2.2 

25,31C2.3 

25,31C3.1 

25,3103.2 

25,31C3.3 

25,32X1.1 

25, 32A1.2 

25,32X1.3 

25, 32A2.1 

25, 32A2.2 

25,32X2.3 

25,32X3.1 

25,32X3.2 

25,32X3.3 

25,32B1.1 

25,32B1.2 

25, 32B1.3 

25,3232.1 

25,3232.2 

25,32B2 .3 

25,32B3.1 

25,32B3.2 

25,32B3.3 

25,3201.1 

25,32C1.2 

25, 32C1 .3 

25,32C2.1 

25,32C2.2 

25,3202.3 



; CLXSSEXP 
noy*sO I y#*y** . 
noyesOlyesyes. 
noyes02yeayes. 
no no02yesyes. 
no no03yesyes. 
no nolo noyes. 
no noQlyesyes. 
no noOlyesyes- 
no noQ3yesyes. 
no noOlyesyes. 
no noOlyesyes. 
no noOlyesyes. 
no noOlyesyes. 
no noOlyesyes. 
no noOl noyes. 
no noOl noyes. 
no nftfi1y«*y** . 
no no02yesyes. 
y**y«*ft 1 y«*yft* . 
yesyesOlyesyes . 
y«*yMfliyfc*y**. 
yesyesOlyesyes . 
yesyesOlyesyes. 
yesyesOlyesyes . 
yes noOlyeayes. 
yes noOlyesyes. 
yes noOlyesyes. 
noyesOlyesyes. 
noyesOlyesyes. 
noyesOlyesyes . 
noyesOlyesyes. 
noyesOlyesyes. 
noyesOlyesyes, 
noyesOlyesyes, 
noyesOlyesyes. 
noyesOlyesyes. 
noyes02yesyes. 
noyes02yesyes . 
noyes02yesyes. 
noyes03yesyes. 
noyes03yesyes . 
noyes03yesyes , 
noyes04y«syes . 
noyes04yesyes. 
noyes04yesyes . 
no no02yesyes. 
no no02yesyes. 
no no02yesyes. 
noyeslO noyes. 
noyeslO noyes. 
noyeslO noyes. 
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25,32C3.1 

2$,32C3.2 

25,32c3-3 

25,33X1.1 

25,33A1.2 

25,33Al.3 

2$,33A2.1 

25,33A2.2 

25,33A2.3 

25,33A3.1 

25,33A3.2 

25,33A3.3 

25,3331.1 

25,3381.2 

25,3331.3 

25,3312.1 

25,3382.2 

25,3382.3 

25,3383.1 

25,3383.2 

25,3383.3 

25,33C1.1 

25,33C1.2 

25,33C1,.3 

25,33C2.1 

25„33C2.2 

25,33C2.3 

25,33C3.1 

25,33C3.2 

25,33C3.3 



no nolO noyto. 
no nolO noyea. 
no nolO noyof. 
no noOlyeay"- 
no noOlyosy"- 
no no02yoayes. 
no noOlyoayea- 
no noOlyeayos. 
no no02yesy«s. 
no nolOyeay«s. 
no nolOyesyea. 
no nolO noyes. 
no noOlyesyea. 
no noOlyeayea. 

no no02yeayoa. 

no noOlyeayoa. 

no noOlyesyos. 

no no02yoayea. 
ytayeaOlyeayoa. 

no noOlycsyoa. 

no no01yesy«s. 

no no02yesyoa. 

no no02yeayes. 

no no03y«sy««. 
* no nolOyesyea- 

no nolOytayea. 

no nolO noyes. 

no nolOyeayes. 

no nolO noyea. 

no nolO noyea. 
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the user concerning the specific type of physical 
PO trauma and specific characteristics of the patient. 
^The inference engine program, which is also ex- 
^ecuted in the computing device, uses the knowledge 
CO base and information related to the responses elic- 
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